<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-pragma">{-# LINE 1 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-1"></span><span class="hs-pragma">{-# LANGUAGE DeriveGeneric #-}</span><span>
</span><span id="line-2"></span><span class="hs-pragma">{-# LANGUAGE NoImplicitPrelude #-}</span><span>
</span><span id="line-3"></span><span class="hs-pragma">{-# LANGUAGE RecordWildCards   #-}</span><span>
</span><span id="line-4"></span><span>
</span><span id="line-5"></span><span class="hs-comment">-- | Accessors to GHC RTS flags.</span><span>
</span><span id="line-6"></span><span class="hs-comment">-- Descriptions of flags can be seen in</span><span>
</span><span id="line-7"></span><span class="hs-comment">-- &lt;https://www.haskell.org/ghc/docs/latest/html/users_guide/runtime_control.html GHC User's Guide&gt;,</span><span>
</span><span id="line-8"></span><span class="hs-comment">-- or by running RTS help message using @+RTS --help@.</span><span>
</span><span id="line-9"></span><span class="hs-comment">--</span><span>
</span><span id="line-10"></span><span class="hs-comment">-- @since 4.8.0.0</span><span>
</span><span id="line-11"></span><span class="hs-comment">--</span><span>
</span><span id="line-12"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">GHC.RTS.Flags</span><span>
</span><span id="line-13"></span><span>  </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#RtsTime"><span class="hs-identifier">RtsTime</span></a></span><span>
</span><span id="line-14"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#RTSFlags"><span class="hs-identifier">RTSFlags</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-15"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#GiveGCStats"><span class="hs-identifier">GiveGCStats</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-16"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#GCFlags"><span class="hs-identifier">GCFlags</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-17"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#ConcFlags"><span class="hs-identifier">ConcFlags</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-18"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#MiscFlags"><span class="hs-identifier">MiscFlags</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-19"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#DebugFlags"><span class="hs-identifier">DebugFlags</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-20"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#DoCostCentres"><span class="hs-identifier">DoCostCentres</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-21"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#CCFlags"><span class="hs-identifier">CCFlags</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-22"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#DoHeapProfile"><span class="hs-identifier">DoHeapProfile</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-23"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#ProfFlags"><span class="hs-identifier">ProfFlags</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-24"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#DoTrace"><span class="hs-identifier">DoTrace</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-25"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#TraceFlags"><span class="hs-identifier">TraceFlags</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-26"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#TickyFlags"><span class="hs-identifier">TickyFlags</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-27"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#ParFlags"><span class="hs-identifier">ParFlags</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-28"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#IoSubSystem"><span class="hs-identifier">IoSubSystem</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span>
</span><span id="line-29"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#getRTSFlags"><span class="hs-identifier">getRTSFlags</span></a></span><span>
</span><span id="line-30"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#getGCFlags"><span class="hs-identifier">getGCFlags</span></a></span><span>
</span><span id="line-31"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#getConcFlags"><span class="hs-identifier">getConcFlags</span></a></span><span>
</span><span id="line-32"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#getMiscFlags"><span class="hs-identifier">getMiscFlags</span></a></span><span>
</span><span id="line-33"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#getIoManagerFlag"><span class="hs-identifier">getIoManagerFlag</span></a></span><span>
</span><span id="line-34"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#getDebugFlags"><span class="hs-identifier">getDebugFlags</span></a></span><span>
</span><span id="line-35"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#getCCFlags"><span class="hs-identifier">getCCFlags</span></a></span><span>
</span><span id="line-36"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#getProfFlags"><span class="hs-identifier">getProfFlags</span></a></span><span>
</span><span id="line-37"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#getTraceFlags"><span class="hs-identifier">getTraceFlags</span></a></span><span>
</span><span id="line-38"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#getTickyFlags"><span class="hs-identifier">getTickyFlags</span></a></span><span>
</span><span id="line-39"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#getParFlags"><span class="hs-identifier">getParFlags</span></a></span><span>
</span><span id="line-40"></span><span>  </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-41"></span><span>
</span><span id="line-42"></span><span>
</span><span id="line-43"></span><span>
</span><span id="line-44"></span><span>
</span><span id="line-45"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Functor.html"><span class="hs-identifier">Data.Functor</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Functor.html#%3C%24%3E"><span class="hs-operator">(&lt;$&gt;)</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-46"></span><span>
</span><span id="line-47"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Foreign.html"><span class="hs-identifier">Foreign</span></a></span><span>
</span><span id="line-48"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Foreign.C.html"><span class="hs-identifier">Foreign.C</span></a></span><span>
</span><span id="line-49"></span><span>
</span><span id="line-50"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Base.html"><span class="hs-identifier">GHC.Base</span></a></span><span>
</span><span id="line-51"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Enum.html"><span class="hs-identifier">GHC.Enum</span></a></span><span>
</span><span id="line-52"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Generics.html"><span class="hs-identifier">GHC.Generics</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Generics.html#Generic"><span class="hs-identifier">Generic</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-53"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.IO.html"><span class="hs-identifier">GHC.IO</span></a></span><span>
</span><span id="line-54"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Real.html"><span class="hs-identifier">GHC.Real</span></a></span><span>
</span><span id="line-55"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Show.html"><span class="hs-identifier">GHC.Show</span></a></span><span>
</span><span id="line-56"></span><span>
</span><span id="line-57"></span><span class="hs-comment">-- | 'RtsTime' is defined as a @StgWord64@ in @stg/Types.h@</span><span>
</span><span id="line-58"></span><span class="hs-comment">--</span><span>
</span><span id="line-59"></span><span class="hs-comment">-- @since 4.8.2.0</span><span>
</span><span id="line-60"></span><span class="hs-keyword">type</span><span> </span><span id="RtsTime"><span class="annot"><a href="GHC.RTS.Flags.html#RtsTime"><span class="hs-identifier hs-var">RtsTime</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Word.html#Word64"><span class="hs-identifier hs-type">Word64</span></a></span><span>
</span><span id="line-61"></span><span>
</span><span id="line-62"></span><span class="hs-comment">-- | Should we produce a summary of the garbage collector statistics after the</span><span>
</span><span id="line-63"></span><span class="hs-comment">-- program has exited?</span><span>
</span><span id="line-64"></span><span class="hs-comment">--</span><span>
</span><span id="line-65"></span><span class="hs-comment">-- @since 4.8.2.0</span><span>
</span><span id="line-66"></span><span id="local-6989586621679540975"><span id="local-6989586621679540976"></span></span><span class="hs-keyword">data</span><span> </span><span id="GiveGCStats"><span class="annot"><a href="GHC.RTS.Flags.html#GiveGCStats"><span class="hs-identifier hs-var">GiveGCStats</span></a></span></span><span>
</span><span id="line-67"></span><span>    </span><span class="hs-glyph">=</span><span> </span><span id="NoGCStats"><span class="annot"><a href="GHC.RTS.Flags.html#NoGCStats"><span class="hs-identifier hs-var">NoGCStats</span></a></span></span><span>
</span><span id="line-68"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="CollectGCStats"><span class="annot"><a href="GHC.RTS.Flags.html#CollectGCStats"><span class="hs-identifier hs-var">CollectGCStats</span></a></span></span><span>
</span><span id="line-69"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="OneLineGCStats"><span class="annot"><a href="GHC.RTS.Flags.html#OneLineGCStats"><span class="hs-identifier hs-var">OneLineGCStats</span></a></span></span><span>
</span><span id="line-70"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="SummaryGCStats"><span class="annot"><a href="GHC.RTS.Flags.html#SummaryGCStats"><span class="hs-identifier hs-var">SummaryGCStats</span></a></span></span><span>
</span><span id="line-71"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="VerboseGCStats"><span class="annot"><a href="GHC.RTS.Flags.html#VerboseGCStats"><span class="hs-identifier hs-var">VerboseGCStats</span></a></span></span><span>
</span><span id="line-72"></span><span>    </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540964"><span id="local-6989586621679540966"><span id="local-6989586621679540968"><span class="annot"><span class="annottext">Int -&gt; GiveGCStats -&gt; ShowS
[GiveGCStats] -&gt; ShowS
GiveGCStats -&gt; String
(Int -&gt; GiveGCStats -&gt; ShowS)
-&gt; (GiveGCStats -&gt; String)
-&gt; ([GiveGCStats] -&gt; ShowS)
-&gt; Show GiveGCStats
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [GiveGCStats] -&gt; ShowS
$cshowList :: [GiveGCStats] -&gt; ShowS
show :: GiveGCStats -&gt; String
$cshow :: GiveGCStats -&gt; String
showsPrec :: Int -&gt; GiveGCStats -&gt; ShowS
$cshowsPrec :: Int -&gt; GiveGCStats -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-73"></span><span>             </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. GiveGCStats -&gt; Rep GiveGCStats x)
-&gt; (forall x. Rep GiveGCStats x -&gt; GiveGCStats)
-&gt; Generic GiveGCStats
forall x. Rep GiveGCStats x -&gt; GiveGCStats
forall x. GiveGCStats -&gt; Rep GiveGCStats x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep GiveGCStats x -&gt; GiveGCStats
$cfrom :: forall x. GiveGCStats -&gt; Rep GiveGCStats x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-74"></span><span>             </span><span class="hs-special">)</span><span>
</span><span id="line-75"></span><span>
</span><span id="line-76"></span><span class="hs-comment">-- | @since 4.8.0.0</span><span>
</span><span id="line-77"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679540945"><span id="local-6989586621679540947"><span id="local-6989586621679540949"><span id="local-6989586621679540951"><span id="local-6989586621679540955"><span id="local-6989586621679540957"><span class="annot"><a href="GHC.Enum.html#Enum"><span class="hs-identifier hs-type">Enum</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#GiveGCStats"><span class="hs-identifier hs-type">GiveGCStats</span></a></span></span></span></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-78"></span><span>    </span><span id="local-6989586621679540943"><span class="annot"><span class="annottext">fromEnum :: GiveGCStats -&gt; Int
</span><a href="GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var hs-var hs-var hs-var">fromEnum</span></a></span></span><span> </span><span class="annot"><span class="annottext">GiveGCStats
</span><a href="GHC.RTS.Flags.html#NoGCStats"><span class="hs-identifier hs-var">NoGCStats</span></a></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span>
</span><span id="line-79"></span><span class="hs-pragma">{-# LINE 79 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-79"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">CollectGCStats</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">1</span><span>
</span><span id="line-80"></span><span class="hs-pragma">{-# LINE 80 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-80"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">OneLineGCStats</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">2</span><span>
</span><span id="line-81"></span><span class="hs-pragma">{-# LINE 81 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-81"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">SummaryGCStats</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">3</span><span>
</span><span id="line-82"></span><span class="hs-pragma">{-# LINE 82 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-82"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">VerboseGCStats</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">4</span><span>
</span><span id="line-83"></span><span class="hs-pragma">{-# LINE 83 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-83"></span><span>
</span><span id="line-84"></span><span>    </span><span id="local-6989586621679540928"><span class="annot"><span class="annottext">toEnum :: Int -&gt; GiveGCStats
</span><a href="GHC.Enum.html#toEnum"><span class="hs-identifier hs-var hs-var hs-var hs-var">toEnum</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">GiveGCStats
</span><a href="GHC.RTS.Flags.html#NoGCStats"><span class="hs-identifier hs-var">NoGCStats</span></a></span><span>
</span><span id="line-85"></span><span class="hs-pragma">{-# LINE 85 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-85"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">1</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">CollectGCStats</span><span>
</span><span id="line-86"></span><span class="hs-pragma">{-# LINE 86 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-86"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">2</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">OneLineGCStats</span><span>
</span><span id="line-87"></span><span class="hs-pragma">{-# LINE 87 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-87"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">3</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">SummaryGCStats</span><span>
</span><span id="line-88"></span><span class="hs-pragma">{-# LINE 88 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-88"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">4</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">VerboseGCStats</span><span>
</span><span id="line-89"></span><span class="hs-pragma">{-# LINE 89 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-89"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-identifier">e</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">errorWithoutStackTrace</span><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;invalid enum for GiveGCStats: &quot;</span><span> </span><span class="hs-operator">++</span><span> </span><span class="hs-identifier">show</span><span> </span><span class="hs-identifier">e</span><span class="hs-special">)</span><span>
</span><span id="line-90"></span><span>
</span><span id="line-91"></span><span class="hs-comment">-- | The I/O SubSystem to use in the program.</span><span>
</span><span id="line-92"></span><span class="hs-comment">--</span><span>
</span><span id="line-93"></span><span class="hs-comment">-- @since 4.9.0.0</span><span>
</span><span id="line-94"></span><span class="hs-keyword">data</span><span> </span><span id="IoSubSystem"><span class="annot"><a href="GHC.RTS.Flags.html#IoSubSystem"><span class="hs-identifier hs-var">IoSubSystem</span></a></span></span><span>
</span><span id="line-95"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span id="IoPOSIX"><span class="annot"><a href="GHC.RTS.Flags.html#IoPOSIX"><span class="hs-identifier hs-var">IoPOSIX</span></a></span></span><span>   </span><span class="hs-comment">-- ^ Use a POSIX I/O Sub-System</span><span>
</span><span id="line-96"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="IoNative"><span class="annot"><a href="GHC.RTS.Flags.html#IoNative"><span class="hs-identifier hs-var">IoNative</span></a></span></span><span>  </span><span class="hs-comment">-- ^ Use platform native Sub-System. For unix OSes this is the</span><span>
</span><span id="line-97"></span><span>              </span><span class="hs-comment">--   same as IoPOSIX, but on Windows this means use the Windows</span><span>
</span><span id="line-98"></span><span>              </span><span class="hs-comment">--   native APIs for I/O, including IOCP and RIO.</span><span>
</span><span id="line-99"></span><span>  </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679540918"><span id="local-6989586621679540920"><span class="annot"><span class="annottext">IoSubSystem -&gt; IoSubSystem -&gt; Bool
(IoSubSystem -&gt; IoSubSystem -&gt; Bool)
-&gt; (IoSubSystem -&gt; IoSubSystem -&gt; Bool) -&gt; Eq IoSubSystem
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: IoSubSystem -&gt; IoSubSystem -&gt; Bool
$c/= :: IoSubSystem -&gt; IoSubSystem -&gt; Bool
== :: IoSubSystem -&gt; IoSubSystem -&gt; Bool
$c== :: IoSubSystem -&gt; IoSubSystem -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#Eq"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></a></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679540911"><span id="local-6989586621679540913"><span id="local-6989586621679540915"><span class="annot"><span class="annottext">Int -&gt; IoSubSystem -&gt; ShowS
[IoSubSystem] -&gt; ShowS
IoSubSystem -&gt; String
(Int -&gt; IoSubSystem -&gt; ShowS)
-&gt; (IoSubSystem -&gt; String)
-&gt; ([IoSubSystem] -&gt; ShowS)
-&gt; Show IoSubSystem
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [IoSubSystem] -&gt; ShowS
$cshowList :: [IoSubSystem] -&gt; ShowS
show :: IoSubSystem -&gt; String
$cshow :: IoSubSystem -&gt; String
showsPrec :: Int -&gt; IoSubSystem -&gt; ShowS
$cshowsPrec :: Int -&gt; IoSubSystem -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-100"></span><span>
</span><span id="line-101"></span><span class="hs-comment">-- | @since 4.9.0.0</span><span>
</span><span id="line-102"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679540897"><span id="local-6989586621679540899"><span id="local-6989586621679540901"><span id="local-6989586621679540903"><span id="local-6989586621679540907"><span id="local-6989586621679540909"><span class="annot"><a href="GHC.Enum.html#Enum"><span class="hs-identifier hs-type">Enum</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#IoSubSystem"><span class="hs-identifier hs-type">IoSubSystem</span></a></span></span></span></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-103"></span><span>    </span><span id="local-6989586621679540896"><span class="annot"><span class="annottext">fromEnum :: IoSubSystem -&gt; Int
</span><a href="#local-6989586621679540896"><span class="hs-identifier hs-var hs-var hs-var hs-var">fromEnum</span></a></span></span><span> </span><span class="annot"><span class="annottext">IoSubSystem
</span><a href="GHC.RTS.Flags.html#IoPOSIX"><span class="hs-identifier hs-var">IoPOSIX</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span>
</span><span id="line-104"></span><span class="hs-pragma">{-# LINE 104 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-104"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">IoNative</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">0</span><span>
</span><span id="line-105"></span><span class="hs-pragma">{-# LINE 105 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-105"></span><span>
</span><span id="line-106"></span><span>    </span><span id="local-6989586621679540890"><span class="annot"><span class="annottext">toEnum :: Int -&gt; IoSubSystem
</span><a href="#local-6989586621679540890"><span class="hs-identifier hs-var hs-var hs-var hs-var">toEnum</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IoSubSystem
</span><a href="GHC.RTS.Flags.html#IoPOSIX"><span class="hs-identifier hs-var">IoPOSIX</span></a></span><span>
</span><span id="line-107"></span><span class="hs-pragma">{-# LINE 107 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-107"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">0</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">IoNative</span><span>
</span><span id="line-108"></span><span class="hs-pragma">{-# LINE 108 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-108"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-identifier">e</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">errorWithoutStackTrace</span><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;invalid enum for IoSubSystem: &quot;</span><span> </span><span class="hs-operator">++</span><span> </span><span class="hs-identifier">show</span><span> </span><span class="hs-identifier">e</span><span class="hs-special">)</span><span>
</span><span id="line-109"></span><span>
</span><span id="line-110"></span><span class="hs-comment">-- | @since 4.9.0.0</span><span>
</span><span id="line-111"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679540879"><span id="local-6989586621679540881"><span id="local-6989586621679540883"><span id="local-6989586621679540885"><span class="annot"><a href="Foreign.Storable.html#Storable"><span class="hs-identifier hs-type">Storable</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#IoSubSystem"><span class="hs-identifier hs-type">IoSubSystem</span></a></span></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-112"></span><span>    </span><span id="local-6989586621679540873"><span class="annot"><span class="annottext">sizeOf :: IoSubSystem -&gt; Int
</span><a href="Foreign.Storable.html#sizeOf"><span class="hs-identifier hs-var hs-var hs-var hs-var">sizeOf</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int
forall a. Storable a =&gt; a -&gt; Int
</span><a href="Foreign.Storable.html#sizeOf"><span class="hs-identifier hs-var">sizeOf</span></a></span><span> </span><span class="annot"><span class="annottext">(Int -&gt; Int) -&gt; (IoSubSystem -&gt; Int) -&gt; IoSubSystem -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">IoSubSystem -&gt; Int
forall a. Enum a =&gt; a -&gt; Int
</span><a href="GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var">fromEnum</span></a></span><span>
</span><span id="line-113"></span><span>    </span><span id="local-6989586621679540868"><span class="annot"><span class="annottext">alignment :: IoSubSystem -&gt; Int
</span><a href="Foreign.Storable.html#alignment"><span class="hs-identifier hs-var hs-var hs-var hs-var">alignment</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int
forall a. Storable a =&gt; a -&gt; Int
</span><a href="Foreign.Storable.html#sizeOf"><span class="hs-identifier hs-var">sizeOf</span></a></span><span> </span><span class="annot"><span class="annottext">(Int -&gt; Int) -&gt; (IoSubSystem -&gt; Int) -&gt; IoSubSystem -&gt; Int
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">IoSubSystem -&gt; Int
forall a. Enum a =&gt; a -&gt; Int
</span><a href="GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var">fromEnum</span></a></span><span>
</span><span id="line-114"></span><span>    </span><span id="local-6989586621679540863"><span class="annot"><span class="annottext">peek :: Ptr IoSubSystem -&gt; IO IoSubSystem
</span><a href="Foreign.Storable.html#peek"><span class="hs-identifier hs-var hs-var hs-var hs-var">peek</span></a></span></span><span> </span><span id="local-6989586621679540861"><span class="annot"><span class="annottext">Ptr IoSubSystem
</span><a href="#local-6989586621679540861"><span class="hs-identifier hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Int -&gt; IoSubSystem) -&gt; IO Int -&gt; IO IoSubSystem
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; IoSubSystem
forall a. Enum a =&gt; Int -&gt; a
</span><a href="GHC.Enum.html#toEnum"><span class="hs-identifier hs-var">toEnum</span></a></span><span> </span><span class="annot"><span class="annottext">(IO Int -&gt; IO IoSubSystem) -&gt; IO Int -&gt; IO IoSubSystem
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr Int -&gt; IO Int
forall a. Storable a =&gt; Ptr a -&gt; IO a
</span><a href="Foreign.Storable.html#peek"><span class="hs-identifier hs-var">peek</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Ptr IoSubSystem -&gt; Ptr Int
forall a b. Ptr a -&gt; Ptr b
</span><a href="GHC.Ptr.html#castPtr"><span class="hs-identifier hs-var">castPtr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr IoSubSystem
</span><a href="#local-6989586621679540861"><span class="hs-identifier hs-var">ptr</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-115"></span><span>    </span><span id="local-6989586621679540857"><span class="annot"><span class="annottext">poke :: Ptr IoSubSystem -&gt; IoSubSystem -&gt; IO ()
</span><a href="Foreign.Storable.html#poke"><span class="hs-identifier hs-var hs-var hs-var hs-var">poke</span></a></span></span><span> </span><span id="local-6989586621679540855"><span class="annot"><span class="annottext">Ptr IoSubSystem
</span><a href="#local-6989586621679540855"><span class="hs-identifier hs-var">ptr</span></a></span></span><span> </span><span id="local-6989586621679540854"><span class="annot"><span class="annottext">IoSubSystem
</span><a href="#local-6989586621679540854"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Ptr Int -&gt; Int -&gt; IO ()
forall a. Storable a =&gt; Ptr a -&gt; a -&gt; IO ()
</span><a href="Foreign.Storable.html#poke"><span class="hs-identifier hs-var">poke</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Ptr IoSubSystem -&gt; Ptr Int
forall a b. Ptr a -&gt; Ptr b
</span><a href="GHC.Ptr.html#castPtr"><span class="hs-identifier hs-var">castPtr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr IoSubSystem
</span><a href="#local-6989586621679540855"><span class="hs-identifier hs-var">ptr</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">IoSubSystem -&gt; Int
forall a. Enum a =&gt; a -&gt; Int
</span><a href="GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var">fromEnum</span></a></span><span> </span><span class="annot"><span class="annottext">IoSubSystem
</span><a href="#local-6989586621679540854"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-116"></span><span>
</span><span id="line-117"></span><span class="hs-comment">-- | Parameters of the garbage collector.</span><span>
</span><span id="line-118"></span><span class="hs-comment">--</span><span>
</span><span id="line-119"></span><span class="hs-comment">-- @since 4.8.0.0</span><span>
</span><span id="line-120"></span><span id="local-6989586621679540852"><span id="local-6989586621679540853"></span></span><span class="hs-keyword">data</span><span> </span><span id="GCFlags"><span class="annot"><a href="GHC.RTS.Flags.html#GCFlags"><span class="hs-identifier hs-var">GCFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="GCFlags"><span class="annot"><a href="GHC.RTS.Flags.html#GCFlags"><span class="hs-identifier hs-var">GCFlags</span></a></span></span><span>
</span><span id="line-121"></span><span>    </span><span class="hs-special">{</span><span> </span><span id="statsFile"><span class="annot"><span class="annottext">GCFlags -&gt; Maybe String
</span><a href="GHC.RTS.Flags.html#statsFile"><span class="hs-identifier hs-var hs-var">statsFile</span></a></span></span><span>             </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>
</span><span id="line-122"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="giveStats"><span class="annot"><span class="annottext">GCFlags -&gt; GiveGCStats
</span><a href="GHC.RTS.Flags.html#giveStats"><span class="hs-identifier hs-var hs-var">giveStats</span></a></span></span><span>             </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#GiveGCStats"><span class="hs-identifier hs-type">GiveGCStats</span></a></span><span>
</span><span id="line-123"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="maxStkSize"><span class="annot"><span class="annottext">GCFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#maxStkSize"><span class="hs-identifier hs-var hs-var">maxStkSize</span></a></span></span><span>            </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-124"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="initialStkSize"><span class="annot"><span class="annottext">GCFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#initialStkSize"><span class="hs-identifier hs-var hs-var">initialStkSize</span></a></span></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-125"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="stkChunkSize"><span class="annot"><span class="annottext">GCFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#stkChunkSize"><span class="hs-identifier hs-var hs-var">stkChunkSize</span></a></span></span><span>          </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-126"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="stkChunkBufferSize"><span class="annot"><span class="annottext">GCFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#stkChunkBufferSize"><span class="hs-identifier hs-var hs-var">stkChunkBufferSize</span></a></span></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-127"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="maxHeapSize"><span class="annot"><span class="annottext">GCFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#maxHeapSize"><span class="hs-identifier hs-var hs-var">maxHeapSize</span></a></span></span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-128"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="minAllocAreaSize"><span class="annot"><span class="annottext">GCFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#minAllocAreaSize"><span class="hs-identifier hs-var hs-var">minAllocAreaSize</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-129"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="largeAllocLim"><span class="annot"><span class="annottext">GCFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#largeAllocLim"><span class="hs-identifier hs-var hs-var">largeAllocLim</span></a></span></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-130"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="nurseryChunkSize"><span class="annot"><span class="annottext">GCFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#nurseryChunkSize"><span class="hs-identifier hs-var hs-var">nurseryChunkSize</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-131"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="minOldGenSize"><span class="annot"><span class="annottext">GCFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#minOldGenSize"><span class="hs-identifier hs-var hs-var">minOldGenSize</span></a></span></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-132"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="heapSizeSuggestion"><span class="annot"><span class="annottext">GCFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#heapSizeSuggestion"><span class="hs-identifier hs-var hs-var">heapSizeSuggestion</span></a></span></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-133"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="heapSizeSuggestionAuto"><span class="annot"><span class="annottext">GCFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#heapSizeSuggestionAuto"><span class="hs-identifier hs-var hs-var">heapSizeSuggestionAuto</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-134"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="oldGenFactor"><span class="annot"><span class="annottext">GCFlags -&gt; Double
</span><a href="GHC.RTS.Flags.html#oldGenFactor"><span class="hs-identifier hs-var hs-var">oldGenFactor</span></a></span></span><span>          </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Double"><span class="hs-identifier hs-type">Double</span></a></span><span>
</span><span id="line-135"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="pcFreeHeap"><span class="annot"><span class="annottext">GCFlags -&gt; Double
</span><a href="GHC.RTS.Flags.html#pcFreeHeap"><span class="hs-identifier hs-var hs-var">pcFreeHeap</span></a></span></span><span>            </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Double"><span class="hs-identifier hs-type">Double</span></a></span><span>
</span><span id="line-136"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="generations"><span class="annot"><span class="annottext">GCFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#generations"><span class="hs-identifier hs-var hs-var">generations</span></a></span></span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-137"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="squeezeUpdFrames"><span class="annot"><span class="annottext">GCFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#squeezeUpdFrames"><span class="hs-identifier hs-var hs-var">squeezeUpdFrames</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-138"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="compact"><span class="annot"><span class="annottext">GCFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#compact"><span class="hs-identifier hs-var hs-var">compact</span></a></span></span><span>               </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ True &lt;=&gt; &quot;compact all the time&quot;</span><span>
</span><span id="line-139"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="compactThreshold"><span class="annot"><span class="annottext">GCFlags -&gt; Double
</span><a href="GHC.RTS.Flags.html#compactThreshold"><span class="hs-identifier hs-var hs-var">compactThreshold</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Double"><span class="hs-identifier hs-type">Double</span></a></span><span>
</span><span id="line-140"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="sweep"><span class="annot"><span class="annottext">GCFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#sweep"><span class="hs-identifier hs-var hs-var">sweep</span></a></span></span><span>                 </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-141"></span><span>      </span><span class="hs-comment">-- ^ use &quot;mostly mark-sweep&quot; instead of copying for the oldest generation</span><span>
</span><span id="line-142"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="ringBell"><span class="annot"><span class="annottext">GCFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#ringBell"><span class="hs-identifier hs-var hs-var">ringBell</span></a></span></span><span>              </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-143"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="idleGCDelayTime"><span class="annot"><span class="annottext">GCFlags -&gt; RtsTime
</span><a href="GHC.RTS.Flags.html#idleGCDelayTime"><span class="hs-identifier hs-var hs-var">idleGCDelayTime</span></a></span></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#RtsTime"><span class="hs-identifier hs-type">RtsTime</span></a></span><span>
</span><span id="line-144"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="doIdleGC"><span class="annot"><span class="annottext">GCFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#doIdleGC"><span class="hs-identifier hs-var hs-var">doIdleGC</span></a></span></span><span>              </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-145"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="heapBase"><span class="annot"><span class="annottext">GCFlags -&gt; Word
</span><a href="GHC.RTS.Flags.html#heapBase"><span class="hs-identifier hs-var hs-var">heapBase</span></a></span></span><span>              </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Word"><span class="hs-identifier hs-type">Word</span></a></span><span> </span><span class="hs-comment">-- ^ address to ask the OS for memory</span><span>
</span><span id="line-146"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="allocLimitGrace"><span class="annot"><span class="annottext">GCFlags -&gt; Word
</span><a href="GHC.RTS.Flags.html#allocLimitGrace"><span class="hs-identifier hs-var hs-var">allocLimitGrace</span></a></span></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Word"><span class="hs-identifier hs-type">Word</span></a></span><span>
</span><span id="line-147"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="numa"><span class="annot"><span class="annottext">GCFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#numa"><span class="hs-identifier hs-var hs-var">numa</span></a></span></span><span>                  </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-148"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="numaMask"><span class="annot"><span class="annottext">GCFlags -&gt; Word
</span><a href="GHC.RTS.Flags.html#numaMask"><span class="hs-identifier hs-var hs-var">numaMask</span></a></span></span><span>              </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Word"><span class="hs-identifier hs-type">Word</span></a></span><span>
</span><span id="line-149"></span><span>    </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540781"><span id="local-6989586621679540783"><span id="local-6989586621679540821"><span class="annot"><span class="annottext">Int -&gt; GCFlags -&gt; ShowS
[GCFlags] -&gt; ShowS
GCFlags -&gt; String
(Int -&gt; GCFlags -&gt; ShowS)
-&gt; (GCFlags -&gt; String) -&gt; ([GCFlags] -&gt; ShowS) -&gt; Show GCFlags
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [GCFlags] -&gt; ShowS
$cshowList :: [GCFlags] -&gt; ShowS
show :: GCFlags -&gt; String
$cshow :: GCFlags -&gt; String
showsPrec :: Int -&gt; GCFlags -&gt; ShowS
$cshowsPrec :: Int -&gt; GCFlags -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-150"></span><span>               </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. GCFlags -&gt; Rep GCFlags x)
-&gt; (forall x. Rep GCFlags x -&gt; GCFlags) -&gt; Generic GCFlags
forall x. Rep GCFlags x -&gt; GCFlags
forall x. GCFlags -&gt; Rep GCFlags x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep GCFlags x -&gt; GCFlags
$cfrom :: forall x. GCFlags -&gt; Rep GCFlags x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-151"></span><span>               </span><span class="hs-special">)</span><span>
</span><span id="line-152"></span><span>
</span><span id="line-153"></span><span class="hs-comment">-- | Parameters concerning context switching</span><span>
</span><span id="line-154"></span><span class="hs-comment">--</span><span>
</span><span id="line-155"></span><span class="hs-comment">-- @since 4.8.0.0</span><span>
</span><span id="line-156"></span><span id="local-6989586621679540773"><span id="local-6989586621679540774"></span></span><span class="hs-keyword">data</span><span> </span><span id="ConcFlags"><span class="annot"><a href="GHC.RTS.Flags.html#ConcFlags"><span class="hs-identifier hs-var">ConcFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="ConcFlags"><span class="annot"><a href="GHC.RTS.Flags.html#ConcFlags"><span class="hs-identifier hs-var">ConcFlags</span></a></span></span><span>
</span><span id="line-157"></span><span>    </span><span class="hs-special">{</span><span> </span><span id="ctxtSwitchTime"><span class="annot"><span class="annottext">ConcFlags -&gt; RtsTime
</span><a href="GHC.RTS.Flags.html#ctxtSwitchTime"><span class="hs-identifier hs-var hs-var">ctxtSwitchTime</span></a></span></span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#RtsTime"><span class="hs-identifier hs-type">RtsTime</span></a></span><span>
</span><span id="line-158"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="ctxtSwitchTicks"><span class="annot"><span class="annottext">ConcFlags -&gt; Int
</span><a href="GHC.RTS.Flags.html#ctxtSwitchTicks"><span class="hs-identifier hs-var hs-var">ctxtSwitchTicks</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Int"><span class="hs-identifier hs-type">Int</span></a></span><span>
</span><span id="line-159"></span><span>    </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540761"><span id="local-6989586621679540763"><span id="local-6989586621679540768"><span class="annot"><span class="annottext">Int -&gt; ConcFlags -&gt; ShowS
[ConcFlags] -&gt; ShowS
ConcFlags -&gt; String
(Int -&gt; ConcFlags -&gt; ShowS)
-&gt; (ConcFlags -&gt; String)
-&gt; ([ConcFlags] -&gt; ShowS)
-&gt; Show ConcFlags
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [ConcFlags] -&gt; ShowS
$cshowList :: [ConcFlags] -&gt; ShowS
show :: ConcFlags -&gt; String
$cshow :: ConcFlags -&gt; String
showsPrec :: Int -&gt; ConcFlags -&gt; ShowS
$cshowsPrec :: Int -&gt; ConcFlags -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-160"></span><span>               </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. ConcFlags -&gt; Rep ConcFlags x)
-&gt; (forall x. Rep ConcFlags x -&gt; ConcFlags) -&gt; Generic ConcFlags
forall x. Rep ConcFlags x -&gt; ConcFlags
forall x. ConcFlags -&gt; Rep ConcFlags x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep ConcFlags x -&gt; ConcFlags
$cfrom :: forall x. ConcFlags -&gt; Rep ConcFlags x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-161"></span><span>               </span><span class="hs-special">)</span><span>
</span><span id="line-162"></span><span>
</span><span id="line-163"></span><span class="hs-comment">-- | Miscellaneous parameters</span><span>
</span><span id="line-164"></span><span class="hs-comment">--</span><span>
</span><span id="line-165"></span><span class="hs-comment">-- @since 4.8.0.0</span><span>
</span><span id="line-166"></span><span id="local-6989586621679540756"><span id="local-6989586621679540757"></span></span><span class="hs-keyword">data</span><span> </span><span id="MiscFlags"><span class="annot"><a href="GHC.RTS.Flags.html#MiscFlags"><span class="hs-identifier hs-var">MiscFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MiscFlags"><span class="annot"><a href="GHC.RTS.Flags.html#MiscFlags"><span class="hs-identifier hs-var">MiscFlags</span></a></span></span><span>
</span><span id="line-167"></span><span>    </span><span class="hs-special">{</span><span> </span><span id="tickInterval"><span class="annot"><span class="annottext">MiscFlags -&gt; RtsTime
</span><a href="GHC.RTS.Flags.html#tickInterval"><span class="hs-identifier hs-var hs-var">tickInterval</span></a></span></span><span>          </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#RtsTime"><span class="hs-identifier hs-type">RtsTime</span></a></span><span>
</span><span id="line-168"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="installSignalHandlers"><span class="annot"><span class="annottext">MiscFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#installSignalHandlers"><span class="hs-identifier hs-var hs-var">installSignalHandlers</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-169"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="installSEHHandlers"><span class="annot"><span class="annottext">MiscFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#installSEHHandlers"><span class="hs-identifier hs-var hs-var">installSEHHandlers</span></a></span></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-170"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="generateCrashDumpFile"><span class="annot"><span class="annottext">MiscFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#generateCrashDumpFile"><span class="hs-identifier hs-var hs-var">generateCrashDumpFile</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-171"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="generateStackTrace"><span class="annot"><span class="annottext">MiscFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#generateStackTrace"><span class="hs-identifier hs-var hs-var">generateStackTrace</span></a></span></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-172"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="machineReadable"><span class="annot"><span class="annottext">MiscFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#machineReadable"><span class="hs-identifier hs-var hs-var">machineReadable</span></a></span></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-173"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="disableDelayedOsMemoryReturn"><span class="annot"><span class="annottext">MiscFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#disableDelayedOsMemoryReturn"><span class="hs-identifier hs-var hs-var">disableDelayedOsMemoryReturn</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-174"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="internalCounters"><span class="annot"><span class="annottext">MiscFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#internalCounters"><span class="hs-identifier hs-var hs-var">internalCounters</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-175"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="linkerAlwaysPic"><span class="annot"><span class="annottext">MiscFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#linkerAlwaysPic"><span class="hs-identifier hs-var hs-var">linkerAlwaysPic</span></a></span></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-176"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="linkerMemBase"><span class="annot"><span class="annottext">MiscFlags -&gt; Word
</span><a href="GHC.RTS.Flags.html#linkerMemBase"><span class="hs-identifier hs-var hs-var">linkerMemBase</span></a></span></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Word"><span class="hs-identifier hs-type">Word</span></a></span><span>
</span><span id="line-177"></span><span>      </span><span class="hs-comment">-- ^ address to ask the OS for memory for the linker, 0 ==&gt; off</span><span>
</span><span id="line-178"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="ioManager"><span class="annot"><span class="annottext">MiscFlags -&gt; IoSubSystem
</span><a href="GHC.RTS.Flags.html#ioManager"><span class="hs-identifier hs-var hs-var">ioManager</span></a></span></span><span>             </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#IoSubSystem"><span class="hs-identifier hs-type">IoSubSystem</span></a></span><span>
</span><span id="line-179"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="numIoWorkerThreads"><span class="annot"><span class="annottext">MiscFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#numIoWorkerThreads"><span class="hs-identifier hs-var hs-var">numIoWorkerThreads</span></a></span></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-180"></span><span>    </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540724"><span id="local-6989586621679540726"><span id="local-6989586621679540741"><span class="annot"><span class="annottext">Int -&gt; MiscFlags -&gt; ShowS
[MiscFlags] -&gt; ShowS
MiscFlags -&gt; String
(Int -&gt; MiscFlags -&gt; ShowS)
-&gt; (MiscFlags -&gt; String)
-&gt; ([MiscFlags] -&gt; ShowS)
-&gt; Show MiscFlags
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [MiscFlags] -&gt; ShowS
$cshowList :: [MiscFlags] -&gt; ShowS
show :: MiscFlags -&gt; String
$cshow :: MiscFlags -&gt; String
showsPrec :: Int -&gt; MiscFlags -&gt; ShowS
$cshowsPrec :: Int -&gt; MiscFlags -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-181"></span><span>               </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. MiscFlags -&gt; Rep MiscFlags x)
-&gt; (forall x. Rep MiscFlags x -&gt; MiscFlags) -&gt; Generic MiscFlags
forall x. Rep MiscFlags x -&gt; MiscFlags
forall x. MiscFlags -&gt; Rep MiscFlags x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep MiscFlags x -&gt; MiscFlags
$cfrom :: forall x. MiscFlags -&gt; Rep MiscFlags x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-182"></span><span>               </span><span class="hs-special">)</span><span>
</span><span id="line-183"></span><span>
</span><span id="line-184"></span><span class="hs-comment">-- | Flags to control debugging output &amp; extra checking in various</span><span>
</span><span id="line-185"></span><span class="hs-comment">-- subsystems.</span><span>
</span><span id="line-186"></span><span class="hs-comment">--</span><span>
</span><span id="line-187"></span><span class="hs-comment">-- @since 4.8.0.0</span><span>
</span><span id="line-188"></span><span id="local-6989586621679540719"><span id="local-6989586621679540720"></span></span><span class="hs-keyword">data</span><span> </span><span id="DebugFlags"><span class="annot"><a href="GHC.RTS.Flags.html#DebugFlags"><span class="hs-identifier hs-var">DebugFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="DebugFlags"><span class="annot"><a href="GHC.RTS.Flags.html#DebugFlags"><span class="hs-identifier hs-var">DebugFlags</span></a></span></span><span>
</span><span id="line-189"></span><span>    </span><span class="hs-special">{</span><span> </span><span id="scheduler"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#scheduler"><span class="hs-identifier hs-var hs-var">scheduler</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @s@</span><span>
</span><span id="line-190"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="interpreter"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#interpreter"><span class="hs-identifier hs-var hs-var">interpreter</span></a></span></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @i@</span><span>
</span><span id="line-191"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="weak"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#weak"><span class="hs-identifier hs-var hs-var">weak</span></a></span></span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @w@</span><span>
</span><span id="line-192"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="gccafs"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#gccafs"><span class="hs-identifier hs-var hs-var">gccafs</span></a></span></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @G@</span><span>
</span><span id="line-193"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="gc"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#gc"><span class="hs-identifier hs-var hs-var">gc</span></a></span></span><span>             </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @g@</span><span>
</span><span id="line-194"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="nonmoving_gc"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#nonmoving_gc"><span class="hs-identifier hs-var hs-var">nonmoving_gc</span></a></span></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @n@</span><span>
</span><span id="line-195"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="block_alloc"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#block_alloc"><span class="hs-identifier hs-var hs-var">block_alloc</span></a></span></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @b@</span><span>
</span><span id="line-196"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="sanity"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#sanity"><span class="hs-identifier hs-var hs-var">sanity</span></a></span></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @S@</span><span>
</span><span id="line-197"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="stable"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#stable"><span class="hs-identifier hs-var hs-var">stable</span></a></span></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @t@</span><span>
</span><span id="line-198"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="prof"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#prof"><span class="hs-identifier hs-var hs-var">prof</span></a></span></span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @p@</span><span>
</span><span id="line-199"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="linker"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#linker"><span class="hs-identifier hs-var hs-var">linker</span></a></span></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @l@ the object linker</span><span>
</span><span id="line-200"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="apply"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#apply"><span class="hs-identifier hs-var hs-var">apply</span></a></span></span><span>          </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @a@</span><span>
</span><span id="line-201"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="stm"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#stm"><span class="hs-identifier hs-var hs-var">stm</span></a></span></span><span>            </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @m@</span><span>
</span><span id="line-202"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="squeeze"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#squeeze"><span class="hs-identifier hs-var hs-var">squeeze</span></a></span></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @z@ stack squeezing &amp; lazy blackholing</span><span>
</span><span id="line-203"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="hpc"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#hpc"><span class="hs-identifier hs-var hs-var">hpc</span></a></span></span><span>            </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @c@ coverage</span><span>
</span><span id="line-204"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="sparks"><span class="annot"><span class="annottext">DebugFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#sparks"><span class="hs-identifier hs-var hs-var">sparks</span></a></span></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ @r@</span><span>
</span><span id="line-205"></span><span>    </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540679"><span id="local-6989586621679540681"><span id="local-6989586621679540700"><span class="annot"><span class="annottext">Int -&gt; DebugFlags -&gt; ShowS
[DebugFlags] -&gt; ShowS
DebugFlags -&gt; String
(Int -&gt; DebugFlags -&gt; ShowS)
-&gt; (DebugFlags -&gt; String)
-&gt; ([DebugFlags] -&gt; ShowS)
-&gt; Show DebugFlags
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [DebugFlags] -&gt; ShowS
$cshowList :: [DebugFlags] -&gt; ShowS
show :: DebugFlags -&gt; String
$cshow :: DebugFlags -&gt; String
showsPrec :: Int -&gt; DebugFlags -&gt; ShowS
$cshowsPrec :: Int -&gt; DebugFlags -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-206"></span><span>               </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. DebugFlags -&gt; Rep DebugFlags x)
-&gt; (forall x. Rep DebugFlags x -&gt; DebugFlags) -&gt; Generic DebugFlags
forall x. Rep DebugFlags x -&gt; DebugFlags
forall x. DebugFlags -&gt; Rep DebugFlags x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep DebugFlags x -&gt; DebugFlags
$cfrom :: forall x. DebugFlags -&gt; Rep DebugFlags x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-207"></span><span>               </span><span class="hs-special">)</span><span>
</span><span id="line-208"></span><span>
</span><span id="line-209"></span><span class="hs-comment">-- | Should the RTS produce a cost-center summary?</span><span>
</span><span id="line-210"></span><span class="hs-comment">--</span><span>
</span><span id="line-211"></span><span class="hs-comment">-- @since 4.8.2.0</span><span>
</span><span id="line-212"></span><span id="local-6989586621679540674"><span id="local-6989586621679540675"></span></span><span class="hs-keyword">data</span><span> </span><span id="DoCostCentres"><span class="annot"><a href="GHC.RTS.Flags.html#DoCostCentres"><span class="hs-identifier hs-var">DoCostCentres</span></a></span></span><span>
</span><span id="line-213"></span><span>    </span><span class="hs-glyph">=</span><span> </span><span id="CostCentresNone"><span class="annot"><a href="GHC.RTS.Flags.html#CostCentresNone"><span class="hs-identifier hs-var">CostCentresNone</span></a></span></span><span>
</span><span id="line-214"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="CostCentresSummary"><span class="annot"><a href="GHC.RTS.Flags.html#CostCentresSummary"><span class="hs-identifier hs-var">CostCentresSummary</span></a></span></span><span>
</span><span id="line-215"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="CostCentresVerbose"><span class="annot"><a href="GHC.RTS.Flags.html#CostCentresVerbose"><span class="hs-identifier hs-var">CostCentresVerbose</span></a></span></span><span>
</span><span id="line-216"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="CostCentresAll"><span class="annot"><a href="GHC.RTS.Flags.html#CostCentresAll"><span class="hs-identifier hs-var">CostCentresAll</span></a></span></span><span>
</span><span id="line-217"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="CostCentresJSON"><span class="annot"><a href="GHC.RTS.Flags.html#CostCentresJSON"><span class="hs-identifier hs-var">CostCentresJSON</span></a></span></span><span>
</span><span id="line-218"></span><span>    </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540663"><span id="local-6989586621679540665"><span id="local-6989586621679540667"><span class="annot"><span class="annottext">Int -&gt; DoCostCentres -&gt; ShowS
[DoCostCentres] -&gt; ShowS
DoCostCentres -&gt; String
(Int -&gt; DoCostCentres -&gt; ShowS)
-&gt; (DoCostCentres -&gt; String)
-&gt; ([DoCostCentres] -&gt; ShowS)
-&gt; Show DoCostCentres
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [DoCostCentres] -&gt; ShowS
$cshowList :: [DoCostCentres] -&gt; ShowS
show :: DoCostCentres -&gt; String
$cshow :: DoCostCentres -&gt; String
showsPrec :: Int -&gt; DoCostCentres -&gt; ShowS
$cshowsPrec :: Int -&gt; DoCostCentres -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-219"></span><span>             </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. DoCostCentres -&gt; Rep DoCostCentres x)
-&gt; (forall x. Rep DoCostCentres x -&gt; DoCostCentres)
-&gt; Generic DoCostCentres
forall x. Rep DoCostCentres x -&gt; DoCostCentres
forall x. DoCostCentres -&gt; Rep DoCostCentres x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep DoCostCentres x -&gt; DoCostCentres
$cfrom :: forall x. DoCostCentres -&gt; Rep DoCostCentres x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-220"></span><span>             </span><span class="hs-special">)</span><span>
</span><span id="line-221"></span><span>
</span><span id="line-222"></span><span class="hs-comment">-- | @since 4.8.0.0</span><span>
</span><span id="line-223"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679540646"><span id="local-6989586621679540648"><span id="local-6989586621679540650"><span id="local-6989586621679540652"><span id="local-6989586621679540656"><span id="local-6989586621679540658"><span class="annot"><a href="GHC.Enum.html#Enum"><span class="hs-identifier hs-type">Enum</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#DoCostCentres"><span class="hs-identifier hs-type">DoCostCentres</span></a></span></span></span></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-224"></span><span>    </span><span id="local-6989586621679540645"><span class="annot"><span class="annottext">fromEnum :: DoCostCentres -&gt; Int
</span><a href="#local-6989586621679540645"><span class="hs-identifier hs-var hs-var hs-var hs-var">fromEnum</span></a></span></span><span> </span><span class="annot"><span class="annottext">DoCostCentres
</span><a href="GHC.RTS.Flags.html#CostCentresNone"><span class="hs-identifier hs-var">CostCentresNone</span></a></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span>
</span><span id="line-225"></span><span class="hs-pragma">{-# LINE 225 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-225"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">CostCentresSummary</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">1</span><span>
</span><span id="line-226"></span><span class="hs-pragma">{-# LINE 226 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-226"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">CostCentresVerbose</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">2</span><span>
</span><span id="line-227"></span><span class="hs-pragma">{-# LINE 227 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-227"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">CostCentresAll</span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">3</span><span>
</span><span id="line-228"></span><span class="hs-pragma">{-# LINE 228 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-228"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">CostCentresJSON</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">4</span><span>
</span><span id="line-229"></span><span class="hs-pragma">{-# LINE 229 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-229"></span><span>
</span><span id="line-230"></span><span>    </span><span id="local-6989586621679540633"><span class="annot"><span class="annottext">toEnum :: Int -&gt; DoCostCentres
</span><a href="#local-6989586621679540633"><span class="hs-identifier hs-var hs-var hs-var hs-var">toEnum</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">DoCostCentres
</span><a href="GHC.RTS.Flags.html#CostCentresNone"><span class="hs-identifier hs-var">CostCentresNone</span></a></span><span>
</span><span id="line-231"></span><span class="hs-pragma">{-# LINE 231 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-231"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">1</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">CostCentresSummary</span><span>
</span><span id="line-232"></span><span class="hs-pragma">{-# LINE 232 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-232"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">2</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">CostCentresVerbose</span><span>
</span><span id="line-233"></span><span class="hs-pragma">{-# LINE 233 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-233"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">3</span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">CostCentresAll</span><span>
</span><span id="line-234"></span><span class="hs-pragma">{-# LINE 234 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-234"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">4</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">CostCentresJSON</span><span>
</span><span id="line-235"></span><span class="hs-pragma">{-# LINE 235 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-235"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-identifier">e</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">errorWithoutStackTrace</span><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;invalid enum for DoCostCentres: &quot;</span><span> </span><span class="hs-operator">++</span><span> </span><span class="hs-identifier">show</span><span> </span><span class="hs-identifier">e</span><span class="hs-special">)</span><span>
</span><span id="line-236"></span><span>
</span><span id="line-237"></span><span class="hs-comment">-- | Parameters pertaining to the cost-center profiler.</span><span>
</span><span id="line-238"></span><span class="hs-comment">--</span><span>
</span><span id="line-239"></span><span class="hs-comment">-- @since 4.8.0.0</span><span>
</span><span id="line-240"></span><span id="local-6989586621679540630"><span id="local-6989586621679540631"></span></span><span class="hs-keyword">data</span><span> </span><span id="CCFlags"><span class="annot"><a href="GHC.RTS.Flags.html#CCFlags"><span class="hs-identifier hs-var">CCFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="CCFlags"><span class="annot"><a href="GHC.RTS.Flags.html#CCFlags"><span class="hs-identifier hs-var">CCFlags</span></a></span></span><span>
</span><span id="line-241"></span><span>    </span><span class="hs-special">{</span><span> </span><span id="doCostCentres"><span class="annot"><span class="annottext">CCFlags -&gt; DoCostCentres
</span><a href="GHC.RTS.Flags.html#doCostCentres"><span class="hs-identifier hs-var hs-var">doCostCentres</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#DoCostCentres"><span class="hs-identifier hs-type">DoCostCentres</span></a></span><span>
</span><span id="line-242"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="profilerTicks"><span class="annot"><span class="annottext">CCFlags -&gt; Int
</span><a href="GHC.RTS.Flags.html#profilerTicks"><span class="hs-identifier hs-var hs-var">profilerTicks</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Int"><span class="hs-identifier hs-type">Int</span></a></span><span>
</span><span id="line-243"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="msecsPerTick"><span class="annot"><span class="annottext">CCFlags -&gt; Int
</span><a href="GHC.RTS.Flags.html#msecsPerTick"><span class="hs-identifier hs-var hs-var">msecsPerTick</span></a></span></span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Int"><span class="hs-identifier hs-type">Int</span></a></span><span>
</span><span id="line-244"></span><span>    </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540616"><span id="local-6989586621679540618"><span id="local-6989586621679540624"><span class="annot"><span class="annottext">Int -&gt; CCFlags -&gt; ShowS
[CCFlags] -&gt; ShowS
CCFlags -&gt; String
(Int -&gt; CCFlags -&gt; ShowS)
-&gt; (CCFlags -&gt; String) -&gt; ([CCFlags] -&gt; ShowS) -&gt; Show CCFlags
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [CCFlags] -&gt; ShowS
$cshowList :: [CCFlags] -&gt; ShowS
show :: CCFlags -&gt; String
$cshow :: CCFlags -&gt; String
showsPrec :: Int -&gt; CCFlags -&gt; ShowS
$cshowsPrec :: Int -&gt; CCFlags -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-245"></span><span>               </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. CCFlags -&gt; Rep CCFlags x)
-&gt; (forall x. Rep CCFlags x -&gt; CCFlags) -&gt; Generic CCFlags
forall x. Rep CCFlags x -&gt; CCFlags
forall x. CCFlags -&gt; Rep CCFlags x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep CCFlags x -&gt; CCFlags
$cfrom :: forall x. CCFlags -&gt; Rep CCFlags x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-246"></span><span>               </span><span class="hs-special">)</span><span>
</span><span id="line-247"></span><span>
</span><span id="line-248"></span><span class="hs-comment">-- | What sort of heap profile are we collecting?</span><span>
</span><span id="line-249"></span><span class="hs-comment">--</span><span>
</span><span id="line-250"></span><span class="hs-comment">-- @since 4.8.2.0</span><span>
</span><span id="line-251"></span><span id="local-6989586621679540611"><span id="local-6989586621679540612"></span></span><span class="hs-keyword">data</span><span> </span><span id="DoHeapProfile"><span class="annot"><a href="GHC.RTS.Flags.html#DoHeapProfile"><span class="hs-identifier hs-var">DoHeapProfile</span></a></span></span><span>
</span><span id="line-252"></span><span>    </span><span class="hs-glyph">=</span><span> </span><span id="NoHeapProfiling"><span class="annot"><a href="GHC.RTS.Flags.html#NoHeapProfiling"><span class="hs-identifier hs-var">NoHeapProfiling</span></a></span></span><span>
</span><span id="line-253"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="HeapByCCS"><span class="annot"><a href="GHC.RTS.Flags.html#HeapByCCS"><span class="hs-identifier hs-var">HeapByCCS</span></a></span></span><span>
</span><span id="line-254"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="HeapByMod"><span class="annot"><a href="GHC.RTS.Flags.html#HeapByMod"><span class="hs-identifier hs-var">HeapByMod</span></a></span></span><span>
</span><span id="line-255"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="HeapByDescr"><span class="annot"><a href="GHC.RTS.Flags.html#HeapByDescr"><span class="hs-identifier hs-var">HeapByDescr</span></a></span></span><span>
</span><span id="line-256"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="HeapByType"><span class="annot"><a href="GHC.RTS.Flags.html#HeapByType"><span class="hs-identifier hs-var">HeapByType</span></a></span></span><span>
</span><span id="line-257"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="HeapByRetainer"><span class="annot"><a href="GHC.RTS.Flags.html#HeapByRetainer"><span class="hs-identifier hs-var">HeapByRetainer</span></a></span></span><span>
</span><span id="line-258"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="HeapByLDV"><span class="annot"><a href="GHC.RTS.Flags.html#HeapByLDV"><span class="hs-identifier hs-var">HeapByLDV</span></a></span></span><span>
</span><span id="line-259"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="HeapByClosureType"><span class="annot"><a href="GHC.RTS.Flags.html#HeapByClosureType"><span class="hs-identifier hs-var">HeapByClosureType</span></a></span></span><span>
</span><span id="line-260"></span><span>    </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540597"><span id="local-6989586621679540599"><span id="local-6989586621679540601"><span class="annot"><span class="annottext">Int -&gt; DoHeapProfile -&gt; ShowS
[DoHeapProfile] -&gt; ShowS
DoHeapProfile -&gt; String
(Int -&gt; DoHeapProfile -&gt; ShowS)
-&gt; (DoHeapProfile -&gt; String)
-&gt; ([DoHeapProfile] -&gt; ShowS)
-&gt; Show DoHeapProfile
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [DoHeapProfile] -&gt; ShowS
$cshowList :: [DoHeapProfile] -&gt; ShowS
show :: DoHeapProfile -&gt; String
$cshow :: DoHeapProfile -&gt; String
showsPrec :: Int -&gt; DoHeapProfile -&gt; ShowS
$cshowsPrec :: Int -&gt; DoHeapProfile -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-261"></span><span>             </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. DoHeapProfile -&gt; Rep DoHeapProfile x)
-&gt; (forall x. Rep DoHeapProfile x -&gt; DoHeapProfile)
-&gt; Generic DoHeapProfile
forall x. Rep DoHeapProfile x -&gt; DoHeapProfile
forall x. DoHeapProfile -&gt; Rep DoHeapProfile x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep DoHeapProfile x -&gt; DoHeapProfile
$cfrom :: forall x. DoHeapProfile -&gt; Rep DoHeapProfile x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-262"></span><span>             </span><span class="hs-special">)</span><span>
</span><span id="line-263"></span><span>
</span><span id="line-264"></span><span class="hs-comment">-- | @since 4.8.0.0</span><span>
</span><span id="line-265"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679540580"><span id="local-6989586621679540582"><span id="local-6989586621679540584"><span id="local-6989586621679540586"><span id="local-6989586621679540590"><span id="local-6989586621679540592"><span class="annot"><a href="GHC.Enum.html#Enum"><span class="hs-identifier hs-type">Enum</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#DoHeapProfile"><span class="hs-identifier hs-type">DoHeapProfile</span></a></span></span></span></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-266"></span><span>    </span><span id="local-6989586621679540579"><span class="annot"><span class="annottext">fromEnum :: DoHeapProfile -&gt; Int
</span><a href="#local-6989586621679540579"><span class="hs-identifier hs-var hs-var hs-var hs-var">fromEnum</span></a></span></span><span> </span><span class="annot"><span class="annottext">DoHeapProfile
</span><a href="GHC.RTS.Flags.html#NoHeapProfiling"><span class="hs-identifier hs-var">NoHeapProfiling</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span>
</span><span id="line-267"></span><span class="hs-pragma">{-# LINE 267 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-267"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">HeapByCCS</span><span>         </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">1</span><span>
</span><span id="line-268"></span><span class="hs-pragma">{-# LINE 268 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-268"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">HeapByMod</span><span>         </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">2</span><span>
</span><span id="line-269"></span><span class="hs-pragma">{-# LINE 269 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-269"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">HeapByDescr</span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">4</span><span>
</span><span id="line-270"></span><span class="hs-pragma">{-# LINE 270 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-270"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">HeapByType</span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">5</span><span>
</span><span id="line-271"></span><span class="hs-pragma">{-# LINE 271 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-271"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">HeapByRetainer</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">6</span><span>
</span><span id="line-272"></span><span class="hs-pragma">{-# LINE 272 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-272"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">HeapByLDV</span><span>         </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">7</span><span>
</span><span id="line-273"></span><span class="hs-pragma">{-# LINE 273 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-273"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">HeapByClosureType</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">8</span><span>
</span><span id="line-274"></span><span class="hs-pragma">{-# LINE 274 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-274"></span><span>
</span><span id="line-275"></span><span>    </span><span id="local-6989586621679540561"><span class="annot"><span class="annottext">toEnum :: Int -&gt; DoHeapProfile
</span><a href="#local-6989586621679540561"><span class="hs-identifier hs-var hs-var hs-var hs-var">toEnum</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">DoHeapProfile
</span><a href="GHC.RTS.Flags.html#NoHeapProfiling"><span class="hs-identifier hs-var">NoHeapProfiling</span></a></span><span>
</span><span id="line-276"></span><span class="hs-pragma">{-# LINE 276 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-276"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">1</span><span>          </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">HeapByCCS</span><span>
</span><span id="line-277"></span><span class="hs-pragma">{-# LINE 277 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-277"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">2</span><span>          </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">HeapByMod</span><span>
</span><span id="line-278"></span><span class="hs-pragma">{-# LINE 278 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-278"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">4</span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">HeapByDescr</span><span>
</span><span id="line-279"></span><span class="hs-pragma">{-# LINE 279 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-279"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">5</span><span>         </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">HeapByType</span><span>
</span><span id="line-280"></span><span class="hs-pragma">{-# LINE 280 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-280"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">6</span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">HeapByRetainer</span><span>
</span><span id="line-281"></span><span class="hs-pragma">{-# LINE 281 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-281"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">7</span><span>          </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">HeapByLDV</span><span>
</span><span id="line-282"></span><span class="hs-pragma">{-# LINE 282 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-282"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">8</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">HeapByClosureType</span><span>
</span><span id="line-283"></span><span class="hs-pragma">{-# LINE 283 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-283"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-identifier">e</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">errorWithoutStackTrace</span><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;invalid enum for DoHeapProfile: &quot;</span><span> </span><span class="hs-operator">++</span><span> </span><span class="hs-identifier">show</span><span> </span><span class="hs-identifier">e</span><span class="hs-special">)</span><span>
</span><span id="line-284"></span><span>
</span><span id="line-285"></span><span class="hs-comment">-- | Parameters of the cost-center profiler</span><span>
</span><span id="line-286"></span><span class="hs-comment">--</span><span>
</span><span id="line-287"></span><span class="hs-comment">-- @since 4.8.0.0</span><span>
</span><span id="line-288"></span><span id="local-6989586621679540558"><span id="local-6989586621679540559"></span></span><span class="hs-keyword">data</span><span> </span><span id="ProfFlags"><span class="annot"><a href="GHC.RTS.Flags.html#ProfFlags"><span class="hs-identifier hs-var">ProfFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="ProfFlags"><span class="annot"><a href="GHC.RTS.Flags.html#ProfFlags"><span class="hs-identifier hs-var">ProfFlags</span></a></span></span><span>
</span><span id="line-289"></span><span>    </span><span class="hs-special">{</span><span> </span><span id="doHeapProfile"><span class="annot"><span class="annottext">ProfFlags -&gt; DoHeapProfile
</span><a href="GHC.RTS.Flags.html#doHeapProfile"><span class="hs-identifier hs-var hs-var">doHeapProfile</span></a></span></span><span>            </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#DoHeapProfile"><span class="hs-identifier hs-type">DoHeapProfile</span></a></span><span>
</span><span id="line-290"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="heapProfileInterval"><span class="annot"><span class="annottext">ProfFlags -&gt; RtsTime
</span><a href="GHC.RTS.Flags.html#heapProfileInterval"><span class="hs-identifier hs-var hs-var">heapProfileInterval</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#RtsTime"><span class="hs-identifier hs-type">RtsTime</span></a></span><span> </span><span class="hs-comment">-- ^ time between samples</span><span>
</span><span id="line-291"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="heapProfileIntervalTicks"><span class="annot"><span class="annottext">ProfFlags -&gt; Word
</span><a href="GHC.RTS.Flags.html#heapProfileIntervalTicks"><span class="hs-identifier hs-var hs-var">heapProfileIntervalTicks</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Word"><span class="hs-identifier hs-type">Word</span></a></span><span>    </span><span class="hs-comment">-- ^ ticks between samples (derived)</span><span>
</span><span id="line-292"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="includeTSOs"><span class="annot"><span class="annottext">ProfFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#includeTSOs"><span class="hs-identifier hs-var hs-var">includeTSOs</span></a></span></span><span>              </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-293"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="showCCSOnException"><span class="annot"><span class="annottext">ProfFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#showCCSOnException"><span class="hs-identifier hs-var hs-var">showCCSOnException</span></a></span></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-294"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="maxRetainerSetSize"><span class="annot"><span class="annottext">ProfFlags -&gt; Word
</span><a href="GHC.RTS.Flags.html#maxRetainerSetSize"><span class="hs-identifier hs-var hs-var">maxRetainerSetSize</span></a></span></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Word"><span class="hs-identifier hs-type">Word</span></a></span><span>
</span><span id="line-295"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="ccsLength"><span class="annot"><span class="annottext">ProfFlags -&gt; Word
</span><a href="GHC.RTS.Flags.html#ccsLength"><span class="hs-identifier hs-var hs-var">ccsLength</span></a></span></span><span>                </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Word"><span class="hs-identifier hs-type">Word</span></a></span><span>
</span><span id="line-296"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="modSelector"><span class="annot"><span class="annottext">ProfFlags -&gt; Maybe String
</span><a href="GHC.RTS.Flags.html#modSelector"><span class="hs-identifier hs-var hs-var">modSelector</span></a></span></span><span>              </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-297"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="descrSelector"><span class="annot"><span class="annottext">ProfFlags -&gt; Maybe String
</span><a href="GHC.RTS.Flags.html#descrSelector"><span class="hs-identifier hs-var hs-var">descrSelector</span></a></span></span><span>            </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-298"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="typeSelector"><span class="annot"><span class="annottext">ProfFlags -&gt; Maybe String
</span><a href="GHC.RTS.Flags.html#typeSelector"><span class="hs-identifier hs-var hs-var">typeSelector</span></a></span></span><span>             </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-299"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="ccSelector"><span class="annot"><span class="annottext">ProfFlags -&gt; Maybe String
</span><a href="GHC.RTS.Flags.html#ccSelector"><span class="hs-identifier hs-var hs-var">ccSelector</span></a></span></span><span>               </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-300"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="ccsSelector"><span class="annot"><span class="annottext">ProfFlags -&gt; Maybe String
</span><a href="GHC.RTS.Flags.html#ccsSelector"><span class="hs-identifier hs-var hs-var">ccsSelector</span></a></span></span><span>              </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-301"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="retainerSelector"><span class="annot"><span class="annottext">ProfFlags -&gt; Maybe String
</span><a href="GHC.RTS.Flags.html#retainerSelector"><span class="hs-identifier hs-var hs-var">retainerSelector</span></a></span></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-302"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="bioSelector"><span class="annot"><span class="annottext">ProfFlags -&gt; Maybe String
</span><a href="GHC.RTS.Flags.html#bioSelector"><span class="hs-identifier hs-var hs-var">bioSelector</span></a></span></span><span>              </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-303"></span><span>    </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540521"><span id="local-6989586621679540523"><span id="local-6989586621679540541"><span class="annot"><span class="annottext">Int -&gt; ProfFlags -&gt; ShowS
[ProfFlags] -&gt; ShowS
ProfFlags -&gt; String
(Int -&gt; ProfFlags -&gt; ShowS)
-&gt; (ProfFlags -&gt; String)
-&gt; ([ProfFlags] -&gt; ShowS)
-&gt; Show ProfFlags
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [ProfFlags] -&gt; ShowS
$cshowList :: [ProfFlags] -&gt; ShowS
show :: ProfFlags -&gt; String
$cshow :: ProfFlags -&gt; String
showsPrec :: Int -&gt; ProfFlags -&gt; ShowS
$cshowsPrec :: Int -&gt; ProfFlags -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-304"></span><span>               </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. ProfFlags -&gt; Rep ProfFlags x)
-&gt; (forall x. Rep ProfFlags x -&gt; ProfFlags) -&gt; Generic ProfFlags
forall x. Rep ProfFlags x -&gt; ProfFlags
forall x. ProfFlags -&gt; Rep ProfFlags x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep ProfFlags x -&gt; ProfFlags
$cfrom :: forall x. ProfFlags -&gt; Rep ProfFlags x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-305"></span><span>               </span><span class="hs-special">)</span><span>
</span><span id="line-306"></span><span>
</span><span id="line-307"></span><span class="hs-comment">-- | Is event tracing enabled?</span><span>
</span><span id="line-308"></span><span class="hs-comment">--</span><span>
</span><span id="line-309"></span><span class="hs-comment">-- @since 4.8.2.0</span><span>
</span><span id="line-310"></span><span id="local-6989586621679540515"><span id="local-6989586621679540516"></span></span><span class="hs-keyword">data</span><span> </span><span id="DoTrace"><span class="annot"><a href="GHC.RTS.Flags.html#DoTrace"><span class="hs-identifier hs-var">DoTrace</span></a></span></span><span>
</span><span id="line-311"></span><span>    </span><span class="hs-glyph">=</span><span> </span><span id="TraceNone"><span class="annot"><a href="GHC.RTS.Flags.html#TraceNone"><span class="hs-identifier hs-var">TraceNone</span></a></span></span><span>      </span><span class="hs-comment">-- ^ no tracing</span><span>
</span><span id="line-312"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="TraceEventLog"><span class="annot"><a href="GHC.RTS.Flags.html#TraceEventLog"><span class="hs-identifier hs-var">TraceEventLog</span></a></span></span><span>  </span><span class="hs-comment">-- ^ send tracing events to the event log</span><span>
</span><span id="line-313"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="TraceStderr"><span class="annot"><a href="GHC.RTS.Flags.html#TraceStderr"><span class="hs-identifier hs-var">TraceStderr</span></a></span></span><span>    </span><span class="hs-comment">-- ^ send tracing events to @stderr@</span><span>
</span><span id="line-314"></span><span>    </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540506"><span id="local-6989586621679540508"><span id="local-6989586621679540510"><span class="annot"><span class="annottext">Int -&gt; DoTrace -&gt; ShowS
[DoTrace] -&gt; ShowS
DoTrace -&gt; String
(Int -&gt; DoTrace -&gt; ShowS)
-&gt; (DoTrace -&gt; String) -&gt; ([DoTrace] -&gt; ShowS) -&gt; Show DoTrace
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [DoTrace] -&gt; ShowS
$cshowList :: [DoTrace] -&gt; ShowS
show :: DoTrace -&gt; String
$cshow :: DoTrace -&gt; String
showsPrec :: Int -&gt; DoTrace -&gt; ShowS
$cshowsPrec :: Int -&gt; DoTrace -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-315"></span><span>             </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. DoTrace -&gt; Rep DoTrace x)
-&gt; (forall x. Rep DoTrace x -&gt; DoTrace) -&gt; Generic DoTrace
forall x. Rep DoTrace x -&gt; DoTrace
forall x. DoTrace -&gt; Rep DoTrace x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep DoTrace x -&gt; DoTrace
$cfrom :: forall x. DoTrace -&gt; Rep DoTrace x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-316"></span><span>             </span><span class="hs-special">)</span><span>
</span><span id="line-317"></span><span>
</span><span id="line-318"></span><span class="hs-comment">-- | @since 4.8.0.0</span><span>
</span><span id="line-319"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679540489"><span id="local-6989586621679540491"><span id="local-6989586621679540493"><span id="local-6989586621679540495"><span id="local-6989586621679540499"><span id="local-6989586621679540501"><span class="annot"><a href="GHC.Enum.html#Enum"><span class="hs-identifier hs-type">Enum</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#DoTrace"><span class="hs-identifier hs-type">DoTrace</span></a></span></span></span></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-320"></span><span>    </span><span id="local-6989586621679540488"><span class="annot"><span class="annottext">fromEnum :: DoTrace -&gt; Int
</span><a href="#local-6989586621679540488"><span class="hs-identifier hs-var hs-var hs-var hs-var">fromEnum</span></a></span></span><span> </span><span class="annot"><span class="annottext">DoTrace
</span><a href="GHC.RTS.Flags.html#TraceNone"><span class="hs-identifier hs-var">TraceNone</span></a></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span>
</span><span id="line-321"></span><span class="hs-pragma">{-# LINE 321 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-321"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">TraceEventLog</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">1</span><span>
</span><span id="line-322"></span><span class="hs-pragma">{-# LINE 322 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-322"></span><span>    </span><span class="hs-identifier">fromEnum</span><span> </span><span class="hs-identifier">TraceStderr</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">2</span><span>
</span><span id="line-323"></span><span class="hs-pragma">{-# LINE 323 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-323"></span><span>
</span><span id="line-324"></span><span>    </span><span id="local-6989586621679540480"><span class="annot"><span class="annottext">toEnum :: Int -&gt; DoTrace
</span><a href="#local-6989586621679540480"><span class="hs-identifier hs-var hs-var hs-var hs-var">toEnum</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">DoTrace
</span><a href="GHC.RTS.Flags.html#TraceNone"><span class="hs-identifier hs-var">TraceNone</span></a></span><span>
</span><span id="line-325"></span><span class="hs-pragma">{-# LINE 325 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-325"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">1</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">TraceEventLog</span><span>
</span><span id="line-326"></span><span class="hs-pragma">{-# LINE 326 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-326"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-number">2</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">TraceStderr</span><span>
</span><span id="line-327"></span><span class="hs-pragma">{-# LINE 327 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-327"></span><span>    </span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-identifier">e</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">errorWithoutStackTrace</span><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;invalid enum for DoTrace: &quot;</span><span> </span><span class="hs-operator">++</span><span> </span><span class="hs-identifier">show</span><span> </span><span class="hs-identifier">e</span><span class="hs-special">)</span><span>
</span><span id="line-328"></span><span>
</span><span id="line-329"></span><span class="hs-comment">-- | Parameters pertaining to event tracing</span><span>
</span><span id="line-330"></span><span class="hs-comment">--</span><span>
</span><span id="line-331"></span><span class="hs-comment">-- @since 4.8.0.0</span><span>
</span><span id="line-332"></span><span id="local-6989586621679540477"><span id="local-6989586621679540478"></span></span><span class="hs-keyword">data</span><span> </span><span id="TraceFlags"><span class="annot"><a href="GHC.RTS.Flags.html#TraceFlags"><span class="hs-identifier hs-var">TraceFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="TraceFlags"><span class="annot"><a href="GHC.RTS.Flags.html#TraceFlags"><span class="hs-identifier hs-var">TraceFlags</span></a></span></span><span>
</span><span id="line-333"></span><span>    </span><span class="hs-special">{</span><span> </span><span id="tracing"><span class="annot"><span class="annottext">TraceFlags -&gt; DoTrace
</span><a href="GHC.RTS.Flags.html#tracing"><span class="hs-identifier hs-var hs-var">tracing</span></a></span></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#DoTrace"><span class="hs-identifier hs-type">DoTrace</span></a></span><span>
</span><span id="line-334"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="timestamp"><span class="annot"><span class="annottext">TraceFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#timestamp"><span class="hs-identifier hs-var hs-var">timestamp</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ show timestamp in stderr output</span><span>
</span><span id="line-335"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="traceScheduler"><span class="annot"><span class="annottext">TraceFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#traceScheduler"><span class="hs-identifier hs-var hs-var">traceScheduler</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ trace scheduler events</span><span>
</span><span id="line-336"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="traceGc"><span class="annot"><span class="annottext">TraceFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#traceGc"><span class="hs-identifier hs-var hs-var">traceGc</span></a></span></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ trace GC events</span><span>
</span><span id="line-337"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="traceNonmovingGc"><span class="annot"><span class="annottext">TraceFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#traceNonmovingGc"><span class="hs-identifier hs-var hs-var">traceNonmovingGc</span></a></span></span><span>
</span><span id="line-338"></span><span>                     </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ trace nonmoving GC heap census samples</span><span>
</span><span id="line-339"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="sparksSampled"><span class="annot"><span class="annottext">TraceFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#sparksSampled"><span class="hs-identifier hs-var hs-var">sparksSampled</span></a></span></span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ trace spark events by a sampled method</span><span>
</span><span id="line-340"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="sparksFull"><span class="annot"><span class="annottext">TraceFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#sparksFull"><span class="hs-identifier hs-var hs-var">sparksFull</span></a></span></span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ trace spark events 100% accurately</span><span>
</span><span id="line-341"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="user"><span class="annot"><span class="annottext">TraceFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#user"><span class="hs-identifier hs-var hs-var">user</span></a></span></span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-comment">-- ^ trace user events (emitted from Haskell code)</span><span>
</span><span id="line-342"></span><span>    </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540453"><span id="local-6989586621679540455"><span id="local-6989586621679540466"><span class="annot"><span class="annottext">Int -&gt; TraceFlags -&gt; ShowS
[TraceFlags] -&gt; ShowS
TraceFlags -&gt; String
(Int -&gt; TraceFlags -&gt; ShowS)
-&gt; (TraceFlags -&gt; String)
-&gt; ([TraceFlags] -&gt; ShowS)
-&gt; Show TraceFlags
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [TraceFlags] -&gt; ShowS
$cshowList :: [TraceFlags] -&gt; ShowS
show :: TraceFlags -&gt; String
$cshow :: TraceFlags -&gt; String
showsPrec :: Int -&gt; TraceFlags -&gt; ShowS
$cshowsPrec :: Int -&gt; TraceFlags -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-343"></span><span>               </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. TraceFlags -&gt; Rep TraceFlags x)
-&gt; (forall x. Rep TraceFlags x -&gt; TraceFlags) -&gt; Generic TraceFlags
forall x. Rep TraceFlags x -&gt; TraceFlags
forall x. TraceFlags -&gt; Rep TraceFlags x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep TraceFlags x -&gt; TraceFlags
$cfrom :: forall x. TraceFlags -&gt; Rep TraceFlags x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-344"></span><span>               </span><span class="hs-special">)</span><span>
</span><span id="line-345"></span><span>
</span><span id="line-346"></span><span class="hs-comment">-- | Parameters pertaining to ticky-ticky profiler</span><span>
</span><span id="line-347"></span><span class="hs-comment">--</span><span>
</span><span id="line-348"></span><span class="hs-comment">-- @since 4.8.0.0</span><span>
</span><span id="line-349"></span><span id="local-6989586621679540448"><span id="local-6989586621679540449"></span></span><span class="hs-keyword">data</span><span> </span><span id="TickyFlags"><span class="annot"><a href="GHC.RTS.Flags.html#TickyFlags"><span class="hs-identifier hs-var">TickyFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="TickyFlags"><span class="annot"><a href="GHC.RTS.Flags.html#TickyFlags"><span class="hs-identifier hs-var">TickyFlags</span></a></span></span><span>
</span><span id="line-350"></span><span>    </span><span class="hs-special">{</span><span> </span><span id="showTickyStats"><span class="annot"><span class="annottext">TickyFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#showTickyStats"><span class="hs-identifier hs-var hs-var">showTickyStats</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-351"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="tickyFile"><span class="annot"><span class="annottext">TickyFlags -&gt; Maybe String
</span><a href="GHC.RTS.Flags.html#tickyFile"><span class="hs-identifier hs-var hs-var">tickyFile</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>
</span><span id="line-352"></span><span>    </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540435"><span id="local-6989586621679540437"><span id="local-6989586621679540443"><span class="annot"><span class="annottext">Int -&gt; TickyFlags -&gt; ShowS
[TickyFlags] -&gt; ShowS
TickyFlags -&gt; String
(Int -&gt; TickyFlags -&gt; ShowS)
-&gt; (TickyFlags -&gt; String)
-&gt; ([TickyFlags] -&gt; ShowS)
-&gt; Show TickyFlags
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [TickyFlags] -&gt; ShowS
$cshowList :: [TickyFlags] -&gt; ShowS
show :: TickyFlags -&gt; String
$cshow :: TickyFlags -&gt; String
showsPrec :: Int -&gt; TickyFlags -&gt; ShowS
$cshowsPrec :: Int -&gt; TickyFlags -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-353"></span><span>               </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. TickyFlags -&gt; Rep TickyFlags x)
-&gt; (forall x. Rep TickyFlags x -&gt; TickyFlags) -&gt; Generic TickyFlags
forall x. Rep TickyFlags x -&gt; TickyFlags
forall x. TickyFlags -&gt; Rep TickyFlags x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep TickyFlags x -&gt; TickyFlags
$cfrom :: forall x. TickyFlags -&gt; Rep TickyFlags x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-354"></span><span>               </span><span class="hs-special">)</span><span>
</span><span id="line-355"></span><span>
</span><span id="line-356"></span><span class="hs-comment">-- | Parameters pertaining to parallelism</span><span>
</span><span id="line-357"></span><span class="hs-comment">--</span><span>
</span><span id="line-358"></span><span class="hs-comment">-- @since 4.8.0.0</span><span>
</span><span id="line-359"></span><span id="local-6989586621679540429"><span id="local-6989586621679540430"></span></span><span class="hs-keyword">data</span><span> </span><span id="ParFlags"><span class="annot"><a href="GHC.RTS.Flags.html#ParFlags"><span class="hs-identifier hs-var">ParFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="ParFlags"><span class="annot"><a href="GHC.RTS.Flags.html#ParFlags"><span class="hs-identifier hs-var">ParFlags</span></a></span></span><span>
</span><span id="line-360"></span><span>    </span><span class="hs-special">{</span><span> </span><span id="nCapabilities"><span class="annot"><span class="annottext">ParFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#nCapabilities"><span class="hs-identifier hs-var hs-var">nCapabilities</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-361"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="migrate"><span class="annot"><span class="annottext">ParFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#migrate"><span class="hs-identifier hs-var hs-var">migrate</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-362"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="maxLocalSparks"><span class="annot"><span class="annottext">ParFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#maxLocalSparks"><span class="hs-identifier hs-var hs-var">maxLocalSparks</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-363"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="parGcEnabled"><span class="annot"><span class="annottext">ParFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#parGcEnabled"><span class="hs-identifier hs-var hs-var">parGcEnabled</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-364"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="parGcGen"><span class="annot"><span class="annottext">ParFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#parGcGen"><span class="hs-identifier hs-var hs-var">parGcGen</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-365"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="parGcLoadBalancingEnabled"><span class="annot"><span class="annottext">ParFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#parGcLoadBalancingEnabled"><span class="hs-identifier hs-var hs-var">parGcLoadBalancingEnabled</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-366"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="parGcLoadBalancingGen"><span class="annot"><span class="annottext">ParFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#parGcLoadBalancingGen"><span class="hs-identifier hs-var hs-var">parGcLoadBalancingGen</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-367"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="parGcNoSyncWithIdle"><span class="annot"><span class="annottext">ParFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#parGcNoSyncWithIdle"><span class="hs-identifier hs-var hs-var">parGcNoSyncWithIdle</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-368"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="parGcThreads"><span class="annot"><span class="annottext">ParFlags -&gt; Word32
</span><a href="GHC.RTS.Flags.html#parGcThreads"><span class="hs-identifier hs-var hs-var">parGcThreads</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-369"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="setAffinity"><span class="annot"><span class="annottext">ParFlags -&gt; Bool
</span><a href="GHC.RTS.Flags.html#setAffinity"><span class="hs-identifier hs-var hs-var">setAffinity</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-370"></span><span>    </span><span class="hs-special">}</span><span>
</span><span id="line-371"></span><span>    </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540401"><span id="local-6989586621679540403"><span id="local-6989586621679540416"><span class="annot"><span class="annottext">Int -&gt; ParFlags -&gt; ShowS
[ParFlags] -&gt; ShowS
ParFlags -&gt; String
(Int -&gt; ParFlags -&gt; ShowS)
-&gt; (ParFlags -&gt; String) -&gt; ([ParFlags] -&gt; ShowS) -&gt; Show ParFlags
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [ParFlags] -&gt; ShowS
$cshowList :: [ParFlags] -&gt; ShowS
show :: ParFlags -&gt; String
$cshow :: ParFlags -&gt; String
showsPrec :: Int -&gt; ParFlags -&gt; ShowS
$cshowsPrec :: Int -&gt; ParFlags -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-372"></span><span>             </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. ParFlags -&gt; Rep ParFlags x)
-&gt; (forall x. Rep ParFlags x -&gt; ParFlags) -&gt; Generic ParFlags
forall x. Rep ParFlags x -&gt; ParFlags
forall x. ParFlags -&gt; Rep ParFlags x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep ParFlags x -&gt; ParFlags
$cfrom :: forall x. ParFlags -&gt; Rep ParFlags x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-373"></span><span>             </span><span class="hs-special">)</span><span>
</span><span id="line-374"></span><span>
</span><span id="line-375"></span><span class="hs-comment">-- | Parameters of the runtime system</span><span>
</span><span id="line-376"></span><span class="hs-comment">--</span><span>
</span><span id="line-377"></span><span class="hs-comment">-- @since 4.8.0.0</span><span>
</span><span id="line-378"></span><span id="local-6989586621679540396"><span id="local-6989586621679540397"></span></span><span class="hs-keyword">data</span><span> </span><span id="RTSFlags"><span class="annot"><a href="GHC.RTS.Flags.html#RTSFlags"><span class="hs-identifier hs-var">RTSFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="RTSFlags"><span class="annot"><a href="GHC.RTS.Flags.html#RTSFlags"><span class="hs-identifier hs-var">RTSFlags</span></a></span></span><span>
</span><span id="line-379"></span><span>    </span><span class="hs-special">{</span><span> </span><span id="gcFlags"><span class="annot"><span class="annottext">RTSFlags -&gt; GCFlags
</span><a href="GHC.RTS.Flags.html#gcFlags"><span class="hs-identifier hs-var hs-var">gcFlags</span></a></span></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#GCFlags"><span class="hs-identifier hs-type">GCFlags</span></a></span><span>
</span><span id="line-380"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="concurrentFlags"><span class="annot"><span class="annottext">RTSFlags -&gt; ConcFlags
</span><a href="GHC.RTS.Flags.html#concurrentFlags"><span class="hs-identifier hs-var hs-var">concurrentFlags</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#ConcFlags"><span class="hs-identifier hs-type">ConcFlags</span></a></span><span>
</span><span id="line-381"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="miscFlags"><span class="annot"><span class="annottext">RTSFlags -&gt; MiscFlags
</span><a href="GHC.RTS.Flags.html#miscFlags"><span class="hs-identifier hs-var hs-var">miscFlags</span></a></span></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#MiscFlags"><span class="hs-identifier hs-type">MiscFlags</span></a></span><span>
</span><span id="line-382"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="debugFlags"><span class="annot"><span class="annottext">RTSFlags -&gt; DebugFlags
</span><a href="GHC.RTS.Flags.html#debugFlags"><span class="hs-identifier hs-var hs-var">debugFlags</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#DebugFlags"><span class="hs-identifier hs-type">DebugFlags</span></a></span><span>
</span><span id="line-383"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="costCentreFlags"><span class="annot"><span class="annottext">RTSFlags -&gt; CCFlags
</span><a href="GHC.RTS.Flags.html#costCentreFlags"><span class="hs-identifier hs-var hs-var">costCentreFlags</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#CCFlags"><span class="hs-identifier hs-type">CCFlags</span></a></span><span>
</span><span id="line-384"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="profilingFlags"><span class="annot"><span class="annottext">RTSFlags -&gt; ProfFlags
</span><a href="GHC.RTS.Flags.html#profilingFlags"><span class="hs-identifier hs-var hs-var">profilingFlags</span></a></span></span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#ProfFlags"><span class="hs-identifier hs-type">ProfFlags</span></a></span><span>
</span><span id="line-385"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="traceFlags"><span class="annot"><span class="annottext">RTSFlags -&gt; TraceFlags
</span><a href="GHC.RTS.Flags.html#traceFlags"><span class="hs-identifier hs-var hs-var">traceFlags</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#TraceFlags"><span class="hs-identifier hs-type">TraceFlags</span></a></span><span>
</span><span id="line-386"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="tickyFlags"><span class="annot"><span class="annottext">RTSFlags -&gt; TickyFlags
</span><a href="GHC.RTS.Flags.html#tickyFlags"><span class="hs-identifier hs-var hs-var">tickyFlags</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#TickyFlags"><span class="hs-identifier hs-type">TickyFlags</span></a></span><span>
</span><span id="line-387"></span><span>    </span><span class="hs-special">,</span><span> </span><span id="parFlags"><span class="annot"><span class="annottext">RTSFlags -&gt; ParFlags
</span><a href="GHC.RTS.Flags.html#parFlags"><span class="hs-identifier hs-var hs-var">parFlags</span></a></span></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#ParFlags"><span class="hs-identifier hs-type">ParFlags</span></a></span><span>
</span><span id="line-388"></span><span>    </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span> </span><span id="local-6989586621679540370"><span id="local-6989586621679540372"><span id="local-6989586621679540384"><span class="annot"><span class="annottext">Int -&gt; RTSFlags -&gt; ShowS
[RTSFlags] -&gt; ShowS
RTSFlags -&gt; String
(Int -&gt; RTSFlags -&gt; ShowS)
-&gt; (RTSFlags -&gt; String) -&gt; ([RTSFlags] -&gt; ShowS) -&gt; Show RTSFlags
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [RTSFlags] -&gt; ShowS
$cshowList :: [RTSFlags] -&gt; ShowS
show :: RTSFlags -&gt; String
$cshow :: RTSFlags -&gt; String
showsPrec :: Int -&gt; RTSFlags -&gt; ShowS
$cshowsPrec :: Int -&gt; RTSFlags -&gt; ShowS
</span><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span> </span><span class="hs-comment">-- ^ @since 4.8.0.0</span><span>
</span><span id="line-389"></span><span>               </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(forall x. RTSFlags -&gt; Rep RTSFlags x)
-&gt; (forall x. Rep RTSFlags x -&gt; RTSFlags) -&gt; Generic RTSFlags
forall x. Rep RTSFlags x -&gt; RTSFlags
forall x. RTSFlags -&gt; Rep RTSFlags x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep RTSFlags x -&gt; RTSFlags
$cfrom :: forall x. RTSFlags -&gt; Rep RTSFlags x
</span><a href="GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span> </span><span class="hs-comment">-- ^ @since 4.15.0.0</span><span>
</span><span id="line-390"></span><span>               </span><span class="hs-special">)</span><span>
</span><span id="line-391"></span><span>
</span><span id="line-392"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-keyword">ccall</span></span><span> </span><span class="annot"><span class="hs-string">&quot;&amp;RtsFlags&quot;</span></span><span> </span><span id="rtsFlagsPtr"><span class="annot"><a href="GHC.RTS.Flags.html#rtsFlagsPtr"><span class="hs-identifier hs-var">rtsFlagsPtr</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#RTSFlags"><span class="hs-identifier hs-type">RTSFlags</span></a></span><span>
</span><span id="line-393"></span><span>
</span><span id="line-394"></span><span class="annot"><a href="GHC.RTS.Flags.html#getRTSFlags"><span class="hs-identifier hs-type">getRTSFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#IO"><span class="hs-identifier hs-type">IO</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#RTSFlags"><span class="hs-identifier hs-type">RTSFlags</span></a></span><span>
</span><span id="line-395"></span><span id="getRTSFlags"><span class="annot"><span class="annottext">getRTSFlags :: IO RTSFlags
</span><a href="GHC.RTS.Flags.html#getRTSFlags"><span class="hs-identifier hs-var hs-var">getRTSFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-396"></span><span>  </span><span class="annot"><span class="annottext">GCFlags
-&gt; ConcFlags
-&gt; MiscFlags
-&gt; DebugFlags
-&gt; CCFlags
-&gt; ProfFlags
-&gt; TraceFlags
-&gt; TickyFlags
-&gt; ParFlags
-&gt; RTSFlags
</span><a href="GHC.RTS.Flags.html#RTSFlags"><span class="hs-identifier hs-var">RTSFlags</span></a></span><span> </span><span class="annot"><span class="annottext">(GCFlags
 -&gt; ConcFlags
 -&gt; MiscFlags
 -&gt; DebugFlags
 -&gt; CCFlags
 -&gt; ProfFlags
 -&gt; TraceFlags
 -&gt; TickyFlags
 -&gt; ParFlags
 -&gt; RTSFlags)
-&gt; IO GCFlags
-&gt; IO
     (ConcFlags
      -&gt; MiscFlags
      -&gt; DebugFlags
      -&gt; CCFlags
      -&gt; ProfFlags
      -&gt; TraceFlags
      -&gt; TickyFlags
      -&gt; ParFlags
      -&gt; RTSFlags)
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">IO GCFlags
</span><a href="GHC.RTS.Flags.html#getGCFlags"><span class="hs-identifier hs-var">getGCFlags</span></a></span><span>
</span><span id="line-397"></span><span>           </span><span class="annot"><span class="annottext">IO
  (ConcFlags
   -&gt; MiscFlags
   -&gt; DebugFlags
   -&gt; CCFlags
   -&gt; ProfFlags
   -&gt; TraceFlags
   -&gt; TickyFlags
   -&gt; ParFlags
   -&gt; RTSFlags)
-&gt; IO ConcFlags
-&gt; IO
     (MiscFlags
      -&gt; DebugFlags
      -&gt; CCFlags
      -&gt; ProfFlags
      -&gt; TraceFlags
      -&gt; TickyFlags
      -&gt; ParFlags
      -&gt; RTSFlags)
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">IO ConcFlags
</span><a href="GHC.RTS.Flags.html#getConcFlags"><span class="hs-identifier hs-var">getConcFlags</span></a></span><span>
</span><span id="line-398"></span><span>           </span><span class="annot"><span class="annottext">IO
  (MiscFlags
   -&gt; DebugFlags
   -&gt; CCFlags
   -&gt; ProfFlags
   -&gt; TraceFlags
   -&gt; TickyFlags
   -&gt; ParFlags
   -&gt; RTSFlags)
-&gt; IO MiscFlags
-&gt; IO
     (DebugFlags
      -&gt; CCFlags
      -&gt; ProfFlags
      -&gt; TraceFlags
      -&gt; TickyFlags
      -&gt; ParFlags
      -&gt; RTSFlags)
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">IO MiscFlags
</span><a href="GHC.RTS.Flags.html#getMiscFlags"><span class="hs-identifier hs-var">getMiscFlags</span></a></span><span>
</span><span id="line-399"></span><span>           </span><span class="annot"><span class="annottext">IO
  (DebugFlags
   -&gt; CCFlags
   -&gt; ProfFlags
   -&gt; TraceFlags
   -&gt; TickyFlags
   -&gt; ParFlags
   -&gt; RTSFlags)
-&gt; IO DebugFlags
-&gt; IO
     (CCFlags
      -&gt; ProfFlags -&gt; TraceFlags -&gt; TickyFlags -&gt; ParFlags -&gt; RTSFlags)
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">IO DebugFlags
</span><a href="GHC.RTS.Flags.html#getDebugFlags"><span class="hs-identifier hs-var">getDebugFlags</span></a></span><span>
</span><span id="line-400"></span><span>           </span><span class="annot"><span class="annottext">IO
  (CCFlags
   -&gt; ProfFlags -&gt; TraceFlags -&gt; TickyFlags -&gt; ParFlags -&gt; RTSFlags)
-&gt; IO CCFlags
-&gt; IO
     (ProfFlags -&gt; TraceFlags -&gt; TickyFlags -&gt; ParFlags -&gt; RTSFlags)
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">IO CCFlags
</span><a href="GHC.RTS.Flags.html#getCCFlags"><span class="hs-identifier hs-var">getCCFlags</span></a></span><span>
</span><span id="line-401"></span><span>           </span><span class="annot"><span class="annottext">IO (ProfFlags -&gt; TraceFlags -&gt; TickyFlags -&gt; ParFlags -&gt; RTSFlags)
-&gt; IO ProfFlags
-&gt; IO (TraceFlags -&gt; TickyFlags -&gt; ParFlags -&gt; RTSFlags)
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">IO ProfFlags
</span><a href="GHC.RTS.Flags.html#getProfFlags"><span class="hs-identifier hs-var">getProfFlags</span></a></span><span>
</span><span id="line-402"></span><span>           </span><span class="annot"><span class="annottext">IO (TraceFlags -&gt; TickyFlags -&gt; ParFlags -&gt; RTSFlags)
-&gt; IO TraceFlags -&gt; IO (TickyFlags -&gt; ParFlags -&gt; RTSFlags)
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">IO TraceFlags
</span><a href="GHC.RTS.Flags.html#getTraceFlags"><span class="hs-identifier hs-var">getTraceFlags</span></a></span><span>
</span><span id="line-403"></span><span>           </span><span class="annot"><span class="annottext">IO (TickyFlags -&gt; ParFlags -&gt; RTSFlags)
-&gt; IO TickyFlags -&gt; IO (ParFlags -&gt; RTSFlags)
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">IO TickyFlags
</span><a href="GHC.RTS.Flags.html#getTickyFlags"><span class="hs-identifier hs-var">getTickyFlags</span></a></span><span>
</span><span id="line-404"></span><span>           </span><span class="annot"><span class="annottext">IO (ParFlags -&gt; RTSFlags) -&gt; IO ParFlags -&gt; IO RTSFlags
forall (f :: * -&gt; *) a b. Applicative f =&gt; f (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var">&lt;*&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">IO ParFlags
</span><a href="GHC.RTS.Flags.html#getParFlags"><span class="hs-identifier hs-var">getParFlags</span></a></span><span>
</span><span id="line-405"></span><span>
</span><span id="line-406"></span><span class="annot"><a href="GHC.RTS.Flags.html#peekFilePath"><span class="hs-identifier hs-type">peekFilePath</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#IO"><span class="hs-identifier hs-type">IO</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-407"></span><span id="peekFilePath"><span class="annot"><span class="annottext">peekFilePath :: Ptr () -&gt; IO (Maybe String)
</span><a href="GHC.RTS.Flags.html#peekFilePath"><span class="hs-identifier hs-var hs-var">peekFilePath</span></a></span></span><span> </span><span id="local-6989586621679540364"><span class="annot"><span class="annottext">Ptr ()
</span><a href="#local-6989586621679540364"><span class="hs-identifier hs-var">ptr</span></a></span></span><span>
</span><span id="line-408"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Ptr ()
</span><a href="#local-6989586621679540364"><span class="hs-identifier hs-var">ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr () -&gt; Ptr () -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3D%3D"><span class="hs-operator hs-var">==</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr ()
forall a. Ptr a
</span><a href="GHC.Ptr.html#nullPtr"><span class="hs-identifier hs-var">nullPtr</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe String -&gt; IO (Maybe String)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe String
forall a. Maybe a
</span><a href="GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-409"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe String -&gt; IO (Maybe String)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; Maybe String
forall a. a -&gt; Maybe a
</span><a href="GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;&lt;filepath&gt;&quot;</span></span><span class="hs-special">)</span><span>
</span><span id="line-410"></span><span>
</span><span id="line-411"></span><span class="hs-comment">-- | Read a NUL terminated string. Return Nothing in case of a NULL pointer.</span><span>
</span><span id="line-412"></span><span class="annot"><a href="GHC.RTS.Flags.html#peekCStringOpt"><span class="hs-identifier hs-type">peekCStringOpt</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Foreign.C.Types.html#CChar"><span class="hs-identifier hs-type">CChar</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#IO"><span class="hs-identifier hs-type">IO</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-413"></span><span id="peekCStringOpt"><span class="annot"><span class="annottext">peekCStringOpt :: Ptr CChar -&gt; IO (Maybe String)
</span><a href="GHC.RTS.Flags.html#peekCStringOpt"><span class="hs-identifier hs-var hs-var">peekCStringOpt</span></a></span></span><span> </span><span id="local-6989586621679540361"><span class="annot"><span class="annottext">Ptr CChar
</span><a href="#local-6989586621679540361"><span class="hs-identifier hs-var">ptr</span></a></span></span><span>
</span><span id="line-414"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Ptr CChar
</span><a href="#local-6989586621679540361"><span class="hs-identifier hs-var">ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr CChar -&gt; Ptr CChar -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3D%3D"><span class="hs-operator hs-var">==</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr CChar
forall a. Ptr a
</span><a href="GHC.Ptr.html#nullPtr"><span class="hs-identifier hs-var">nullPtr</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe String -&gt; IO (Maybe String)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe String
forall a. Maybe a
</span><a href="GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-415"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe String
forall a. a -&gt; Maybe a
</span><a href="GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Maybe String) -&gt; IO String -&gt; IO (Maybe String)
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="Data.Functor.html#%3C%24%3E"><span class="hs-operator hs-var">&lt;$&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr CChar -&gt; IO String
</span><a href="Foreign.C.String.html#peekCString"><span class="hs-identifier hs-var">peekCString</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr CChar
</span><a href="#local-6989586621679540361"><span class="hs-identifier hs-var">ptr</span></a></span><span>
</span><span id="line-416"></span><span>
</span><span id="line-417"></span><span class="annot"><a href="GHC.RTS.Flags.html#getGCFlags"><span class="hs-identifier hs-type">getGCFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#IO"><span class="hs-identifier hs-type">IO</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#GCFlags"><span class="hs-identifier hs-type">GCFlags</span></a></span><span>
</span><span id="line-418"></span><span id="getGCFlags"><span class="annot"><span class="annottext">getGCFlags :: IO GCFlags
</span><a href="GHC.RTS.Flags.html#getGCFlags"><span class="hs-identifier hs-var hs-var">getGCFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-419"></span><span>  </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679540359"><span class="annot"><span class="annottext">ptr :: Ptr b
</span><a href="#local-6989586621679540359"><span class="hs-identifier hs-var hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679540358"><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540358"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540358"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags -&gt; Int -&gt; Ptr b
forall a b. Ptr a -&gt; Int -&gt; Ptr b
</span><a href="GHC.Ptr.html#plusPtr"><span class="hs-operator hs-var">`plusPtr`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="GHC.RTS.Flags.html#rtsFlagsPtr"><span class="hs-identifier hs-var">rtsFlagsPtr</span></a></span><span>
</span><span id="line-420"></span><span class="hs-pragma">{-# LINE 420 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-420"></span><span>  </span><span class="hs-identifier">GCFlags</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">peekFilePath</span><span> </span><span class="hs-operator">=&lt;&lt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">0</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span class="hs-special">)</span><span>
</span><span id="line-421"></span><span class="hs-pragma">{-# LINE 421 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-421"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-operator">.</span><span> </span><span class="hs-identifier">fromIntegral</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-422"></span><span>                </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">8</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">Word32</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-423"></span><span class="hs-pragma">{-# LINE 423 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-423"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">12</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-424"></span><span class="hs-pragma">{-# LINE 424 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-424"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">16</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-425"></span><span class="hs-pragma">{-# LINE 425 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-425"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">20</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-426"></span><span class="hs-pragma">{-# LINE 426 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-426"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">24</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-427"></span><span class="hs-pragma">{-# LINE 427 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-427"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">28</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-428"></span><span class="hs-pragma">{-# LINE 428 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-428"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">32</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-429"></span><span class="hs-pragma">{-# LINE 429 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-429"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">36</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-430"></span><span class="hs-pragma">{-# LINE 430 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-430"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">40</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-431"></span><span class="hs-pragma">{-# LINE 431 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-431"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">44</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-432"></span><span class="hs-pragma">{-# LINE 432 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-432"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">48</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-433"></span><span class="hs-pragma">{-# LINE 433 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-433"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-434"></span><span>                </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">52</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-435"></span><span class="hs-pragma">{-# LINE 435 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-435"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">56</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-436"></span><span class="hs-pragma">{-# LINE 436 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-436"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">64</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-437"></span><span class="hs-pragma">{-# LINE 437 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-437"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">76</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-438"></span><span class="hs-pragma">{-# LINE 438 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-438"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-439"></span><span>                </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">80</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-440"></span><span class="hs-pragma">{-# LINE 440 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-440"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-441"></span><span>                </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">81</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-442"></span><span class="hs-pragma">{-# LINE 442 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-442"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">88</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-443"></span><span class="hs-pragma">{-# LINE 443 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-443"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-444"></span><span>                </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">96</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-445"></span><span class="hs-pragma">{-# LINE 445 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-445"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-446"></span><span>                </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">97</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-447"></span><span class="hs-pragma">{-# LINE 447 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-447"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">104</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-448"></span><span class="hs-pragma">{-# LINE 448 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-448"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-449"></span><span>                </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">120</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-450"></span><span class="hs-pragma">{-# LINE 450 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-450"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">136</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-451"></span><span class="hs-pragma">{-# LINE 451 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-451"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">144</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-452"></span><span class="hs-pragma">{-# LINE 452 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-452"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-453"></span><span>                </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">160</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-454"></span><span class="hs-pragma">{-# LINE 454 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-454"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">168</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-455"></span><span class="hs-pragma">{-# LINE 455 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-455"></span><span>
</span><span id="line-456"></span><span class="annot"><a href="GHC.RTS.Flags.html#getParFlags"><span class="hs-identifier hs-type">getParFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#IO"><span class="hs-identifier hs-type">IO</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#ParFlags"><span class="hs-identifier hs-type">ParFlags</span></a></span><span>
</span><span id="line-457"></span><span id="getParFlags"><span class="annot"><span class="annottext">getParFlags :: IO ParFlags
</span><a href="GHC.RTS.Flags.html#getParFlags"><span class="hs-identifier hs-var hs-var">getParFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-458"></span><span>  </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679540326"><span class="annot"><span class="annottext">ptr :: Ptr b
</span><a href="#local-6989586621679540326"><span class="hs-identifier hs-var hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679540325"><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540325"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540325"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags -&gt; Int -&gt; Ptr b
forall a b. Ptr a -&gt; Int -&gt; Ptr b
</span><a href="GHC.Ptr.html#plusPtr"><span class="hs-operator hs-var">`plusPtr`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">400</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="GHC.RTS.Flags.html#rtsFlagsPtr"><span class="hs-identifier hs-var">rtsFlagsPtr</span></a></span><span>
</span><span id="line-459"></span><span class="hs-pragma">{-# LINE 459 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-459"></span><span>  </span><span class="hs-identifier">ParFlags</span><span>
</span><span id="line-460"></span><span>    </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">0</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-461"></span><span class="hs-pragma">{-# LINE 461 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-461"></span><span>    </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-462"></span><span>          </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">4</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-463"></span><span class="hs-pragma">{-# LINE 463 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-463"></span><span>    </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">8</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-464"></span><span class="hs-pragma">{-# LINE 464 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-464"></span><span>    </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-465"></span><span>          </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">12</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-466"></span><span class="hs-pragma">{-# LINE 466 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-466"></span><span>    </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">16</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-467"></span><span class="hs-pragma">{-# LINE 467 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-467"></span><span>    </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-468"></span><span>          </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">20</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-469"></span><span class="hs-pragma">{-# LINE 469 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-469"></span><span>    </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">24</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-470"></span><span class="hs-pragma">{-# LINE 470 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-470"></span><span>    </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">28</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-471"></span><span class="hs-pragma">{-# LINE 471 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-471"></span><span>    </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">32</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-472"></span><span class="hs-pragma">{-# LINE 472 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-472"></span><span>    </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-473"></span><span>          </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">36</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-474"></span><span class="hs-pragma">{-# LINE 474 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-474"></span><span>
</span><span id="line-475"></span><span class="annot"><a href="GHC.RTS.Flags.html#getConcFlags"><span class="hs-identifier hs-type">getConcFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#IO"><span class="hs-identifier hs-type">IO</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#ConcFlags"><span class="hs-identifier hs-type">ConcFlags</span></a></span><span>
</span><span id="line-476"></span><span id="getConcFlags"><span class="annot"><span class="annottext">getConcFlags :: IO ConcFlags
</span><a href="GHC.RTS.Flags.html#getConcFlags"><span class="hs-identifier hs-var hs-var">getConcFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-477"></span><span>  </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679540314"><span class="annot"><span class="annottext">ptr :: Ptr b
</span><a href="#local-6989586621679540314"><span class="hs-identifier hs-var hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679540313"><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540313"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540313"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags -&gt; Int -&gt; Ptr b
forall a b. Ptr a -&gt; Int -&gt; Ptr b
</span><a href="GHC.Ptr.html#plusPtr"><span class="hs-operator hs-var">`plusPtr`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">176</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="GHC.RTS.Flags.html#rtsFlagsPtr"><span class="hs-identifier hs-var">rtsFlagsPtr</span></a></span><span>
</span><span id="line-478"></span><span class="hs-pragma">{-# LINE 478 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-478"></span><span>  </span><span class="hs-identifier">ConcFlags</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">0</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-479"></span><span class="hs-pragma">{-# LINE 479 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-479"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">8</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-480"></span><span class="hs-pragma">{-# LINE 480 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-480"></span><span>
</span><span id="line-481"></span><span class="hs-pragma">{-# INLINEABLE</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#getMiscFlags"><span class="hs-pragma hs-type">getMiscFlags</span></a></span><span> </span><span class="hs-pragma">#-}</span><span>
</span><span id="line-482"></span><span class="annot"><a href="GHC.RTS.Flags.html#getMiscFlags"><span class="hs-identifier hs-type">getMiscFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#IO"><span class="hs-identifier hs-type">IO</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#MiscFlags"><span class="hs-identifier hs-type">MiscFlags</span></a></span><span>
</span><span id="line-483"></span><span id="getMiscFlags"><span class="annot"><span class="annottext">getMiscFlags :: IO MiscFlags
</span><a href="GHC.RTS.Flags.html#getMiscFlags"><span class="hs-identifier hs-var hs-var">getMiscFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-484"></span><span>  </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679540310"><span class="annot"><span class="annottext">ptr :: Ptr b
</span><a href="#local-6989586621679540310"><span class="hs-identifier hs-var hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679540309"><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540309"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540309"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags -&gt; Int -&gt; Ptr b
forall a b. Ptr a -&gt; Int -&gt; Ptr b
</span><a href="GHC.Ptr.html#plusPtr"><span class="hs-operator hs-var">`plusPtr`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">192</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="GHC.RTS.Flags.html#rtsFlagsPtr"><span class="hs-identifier hs-var">rtsFlagsPtr</span></a></span><span>
</span><span id="line-485"></span><span class="hs-pragma">{-# LINE 485 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-485"></span><span>  </span><span class="hs-identifier">MiscFlags</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">0</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-486"></span><span class="hs-pragma">{-# LINE 486 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-486"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-487"></span><span>                  </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">8</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-488"></span><span class="hs-pragma">{-# LINE 488 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-488"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-489"></span><span>                  </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">9</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-490"></span><span class="hs-pragma">{-# LINE 490 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-490"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-491"></span><span>                  </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">10</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-492"></span><span class="hs-pragma">{-# LINE 492 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-492"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-493"></span><span>                  </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">11</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-494"></span><span class="hs-pragma">{-# LINE 494 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-494"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-495"></span><span>                  </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">12</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-496"></span><span class="hs-pragma">{-# LINE 496 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-496"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-497"></span><span>                  </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">13</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-498"></span><span class="hs-pragma">{-# LINE 498 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-498"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-499"></span><span>                  </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">14</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-500"></span><span class="hs-pragma">{-# LINE 500 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-500"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-501"></span><span>                  </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">15</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-502"></span><span class="hs-pragma">{-# LINE 502 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-502"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">16</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-503"></span><span class="hs-pragma">{-# LINE 503 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-503"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-operator">.</span><span> </span><span class="hs-identifier">fromIntegral</span><span>
</span><span id="line-504"></span><span>                 </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">24</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">Word32</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-505"></span><span class="hs-pragma">{-# LINE 505 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-505"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">fromIntegral</span><span>
</span><span id="line-506"></span><span>                 </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">28</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">Word32</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-507"></span><span class="hs-pragma">{-# LINE 507 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-507"></span><span>
</span><span id="line-508"></span><span class="hs-comment">{- Note [The need for getIoManagerFlag]
   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

   GHC supports both the new WINIO manager
   as well as the old MIO one. In order to
   decide which code path to take we often
   have to inspect what the user selected at
   RTS startup.

   We could use getMiscFlags but then we end up with core containing
   reads for all MiscFlags. These won't be eliminated at the core level
   even if it's obvious we will only look at the ioManager part of the
   ADT.

   We could add a INLINE pragma, but that just means whatever we inline
   into is likely to be inlined. So rather than adding a dozen pragmas
   we expose a lean way to query this particular flag. It's not satisfying
   but it works well enough and allows these checks to be inlined nicely.

-}</span><span>
</span><span id="line-528"></span><span>
</span><span id="line-529"></span><span class="hs-pragma">{-# INLINE</span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#getIoManagerFlag"><span class="hs-pragma hs-type">getIoManagerFlag</span></a></span><span> </span><span class="hs-pragma">#-}</span><span>
</span><span id="line-530"></span><span class="hs-comment">-- | Needed to optimize support for different IO Managers on Windows.</span><span>
</span><span id="line-531"></span><span class="hs-comment">-- See Note [The need for getIoManagerFlag]</span><span>
</span><span id="line-532"></span><span class="annot"><a href="GHC.RTS.Flags.html#getIoManagerFlag"><span class="hs-identifier hs-type">getIoManagerFlag</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#IO"><span class="hs-identifier hs-type">IO</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#IoSubSystem"><span class="hs-identifier hs-type">IoSubSystem</span></a></span><span>
</span><span id="line-533"></span><span id="getIoManagerFlag"><span class="annot"><span class="annottext">getIoManagerFlag :: IO IoSubSystem
</span><a href="GHC.RTS.Flags.html#getIoManagerFlag"><span class="hs-identifier hs-var hs-var">getIoManagerFlag</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-534"></span><span>      </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679540296"><span class="annot"><span class="annottext">ptr :: Ptr b
</span><a href="#local-6989586621679540296"><span class="hs-identifier hs-var hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679540295"><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540295"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540295"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags -&gt; Int -&gt; Ptr b
forall a b. Ptr a -&gt; Int -&gt; Ptr b
</span><a href="GHC.Ptr.html#plusPtr"><span class="hs-operator hs-var">`plusPtr`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">192</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="GHC.RTS.Flags.html#rtsFlagsPtr"><span class="hs-identifier hs-var">rtsFlagsPtr</span></a></span><span>
</span><span id="line-535"></span><span class="hs-pragma">{-# LINE 535 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-535"></span><span>      </span><span class="hs-identifier">mgrFlag</span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">24</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">Word32</span><span class="hs-special">)</span><span>
</span><span id="line-536"></span><span class="hs-pragma">{-# LINE 536 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-536"></span><span>      </span><span class="hs-identifier">return</span><span> </span><span class="hs-operator">$</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-operator">.</span><span> </span><span class="hs-identifier">fromIntegral</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">mgrFlag</span><span>
</span><span id="line-537"></span><span>
</span><span id="line-538"></span><span class="annot"><a href="GHC.RTS.Flags.html#getDebugFlags"><span class="hs-identifier hs-type">getDebugFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#IO"><span class="hs-identifier hs-type">IO</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#DebugFlags"><span class="hs-identifier hs-type">DebugFlags</span></a></span><span>
</span><span id="line-539"></span><span id="getDebugFlags"><span class="annot"><span class="annottext">getDebugFlags :: IO DebugFlags
</span><a href="GHC.RTS.Flags.html#getDebugFlags"><span class="hs-identifier hs-var hs-var">getDebugFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-540"></span><span>  </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679540292"><span class="annot"><span class="annottext">ptr :: Ptr b
</span><a href="#local-6989586621679540292"><span class="hs-identifier hs-var hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679540291"><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540291"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540291"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags -&gt; Int -&gt; Ptr b
forall a b. Ptr a -&gt; Int -&gt; Ptr b
</span><a href="GHC.Ptr.html#plusPtr"><span class="hs-operator hs-var">`plusPtr`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">224</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="GHC.RTS.Flags.html#rtsFlagsPtr"><span class="hs-identifier hs-var">rtsFlagsPtr</span></a></span><span>
</span><span id="line-541"></span><span class="hs-pragma">{-# LINE 541 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-541"></span><span>  </span><span class="hs-identifier">DebugFlags</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-542"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">0</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-543"></span><span class="hs-pragma">{-# LINE 543 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-543"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-544"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">1</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-545"></span><span class="hs-pragma">{-# LINE 545 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-545"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-546"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">2</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-547"></span><span class="hs-pragma">{-# LINE 547 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-547"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-548"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">3</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-549"></span><span class="hs-pragma">{-# LINE 549 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-549"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-550"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">4</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-551"></span><span class="hs-pragma">{-# LINE 551 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-551"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-552"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">5</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-553"></span><span class="hs-pragma">{-# LINE 553 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-553"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-554"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">6</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-555"></span><span class="hs-pragma">{-# LINE 555 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-555"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-556"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">7</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-557"></span><span class="hs-pragma">{-# LINE 557 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-557"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-558"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">9</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-559"></span><span class="hs-pragma">{-# LINE 559 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-559"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-560"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">10</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-561"></span><span class="hs-pragma">{-# LINE 561 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-561"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-562"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">11</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-563"></span><span class="hs-pragma">{-# LINE 563 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-563"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-564"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">12</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-565"></span><span class="hs-pragma">{-# LINE 565 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-565"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-566"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">13</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-567"></span><span class="hs-pragma">{-# LINE 567 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-567"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-568"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">14</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-569"></span><span class="hs-pragma">{-# LINE 569 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-569"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-570"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">15</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-571"></span><span class="hs-pragma">{-# LINE 571 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-571"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-572"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">16</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-573"></span><span class="hs-pragma">{-# LINE 573 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-573"></span><span>
</span><span id="line-574"></span><span class="annot"><a href="GHC.RTS.Flags.html#getCCFlags"><span class="hs-identifier hs-type">getCCFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#IO"><span class="hs-identifier hs-type">IO</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#CCFlags"><span class="hs-identifier hs-type">CCFlags</span></a></span><span>
</span><span id="line-575"></span><span id="getCCFlags"><span class="annot"><span class="annottext">getCCFlags :: IO CCFlags
</span><a href="GHC.RTS.Flags.html#getCCFlags"><span class="hs-identifier hs-var hs-var">getCCFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-576"></span><span>  </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679540274"><span class="annot"><span class="annottext">ptr :: Ptr b
</span><a href="#local-6989586621679540274"><span class="hs-identifier hs-var hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679540273"><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540273"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540273"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags -&gt; Int -&gt; Ptr b
forall a b. Ptr a -&gt; Int -&gt; Ptr b
</span><a href="GHC.Ptr.html#plusPtr"><span class="hs-operator hs-var">`plusPtr`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="GHC.RTS.Flags.html#rtsFlagsPtr"><span class="hs-identifier hs-var">rtsFlagsPtr</span></a></span><span>
</span><span id="line-577"></span><span class="hs-pragma">{-# LINE 577 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-577"></span><span>  </span><span class="hs-identifier">CCFlags</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-operator">.</span><span> </span><span class="hs-identifier">fromIntegral</span><span>
</span><span id="line-578"></span><span>                </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">0</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">Word32</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-579"></span><span class="hs-pragma">{-# LINE 579 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-579"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">4</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-580"></span><span class="hs-pragma">{-# LINE 580 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-580"></span><span>          </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">8</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-581"></span><span class="hs-pragma">{-# LINE 581 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-581"></span><span>
</span><span id="line-582"></span><span class="annot"><a href="GHC.RTS.Flags.html#getProfFlags"><span class="hs-identifier hs-type">getProfFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#IO"><span class="hs-identifier hs-type">IO</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#ProfFlags"><span class="hs-identifier hs-type">ProfFlags</span></a></span><span>
</span><span id="line-583"></span><span id="getProfFlags"><span class="annot"><span class="annottext">getProfFlags :: IO ProfFlags
</span><a href="GHC.RTS.Flags.html#getProfFlags"><span class="hs-identifier hs-var hs-var">getProfFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-584"></span><span>  </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679540269"><span class="annot"><span class="annottext">ptr :: Ptr b
</span><a href="#local-6989586621679540269"><span class="hs-identifier hs-var hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679540268"><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540268"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540268"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags -&gt; Int -&gt; Ptr b
forall a b. Ptr a -&gt; Int -&gt; Ptr b
</span><a href="GHC.Ptr.html#plusPtr"><span class="hs-operator hs-var">`plusPtr`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">272</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="GHC.RTS.Flags.html#rtsFlagsPtr"><span class="hs-identifier hs-var">rtsFlagsPtr</span></a></span><span>
</span><span id="line-585"></span><span class="hs-pragma">{-# LINE 585 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-585"></span><span>  </span><span class="hs-identifier">ProfFlags</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">0</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span class="hs-special">)</span><span>
</span><span id="line-586"></span><span class="hs-pragma">{-# LINE 586 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-586"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">8</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-587"></span><span class="hs-pragma">{-# LINE 587 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-587"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">16</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-588"></span><span class="hs-pragma">{-# LINE 588 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-588"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-589"></span><span>                  </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">20</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-590"></span><span class="hs-pragma">{-# LINE 590 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-590"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-591"></span><span>                  </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">21</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-592"></span><span class="hs-pragma">{-# LINE 592 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-592"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">24</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-593"></span><span class="hs-pragma">{-# LINE 593 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-593"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">28</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span>
</span><span id="line-594"></span><span class="hs-pragma">{-# LINE 594 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-594"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">peekCStringOpt</span><span> </span><span class="hs-operator">=&lt;&lt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">32</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span class="hs-special">)</span><span>
</span><span id="line-595"></span><span class="hs-pragma">{-# LINE 595 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-595"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">peekCStringOpt</span><span> </span><span class="hs-operator">=&lt;&lt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">40</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span class="hs-special">)</span><span>
</span><span id="line-596"></span><span class="hs-pragma">{-# LINE 596 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-596"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">peekCStringOpt</span><span> </span><span class="hs-operator">=&lt;&lt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">48</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span class="hs-special">)</span><span>
</span><span id="line-597"></span><span class="hs-pragma">{-# LINE 597 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-597"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">peekCStringOpt</span><span> </span><span class="hs-operator">=&lt;&lt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">56</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span class="hs-special">)</span><span>
</span><span id="line-598"></span><span class="hs-pragma">{-# LINE 598 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-598"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">peekCStringOpt</span><span> </span><span class="hs-operator">=&lt;&lt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">64</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span class="hs-special">)</span><span>
</span><span id="line-599"></span><span class="hs-pragma">{-# LINE 599 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-599"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">peekCStringOpt</span><span> </span><span class="hs-operator">=&lt;&lt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">72</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span class="hs-special">)</span><span>
</span><span id="line-600"></span><span class="hs-pragma">{-# LINE 600 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-600"></span><span>            </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">peekCStringOpt</span><span> </span><span class="hs-operator">=&lt;&lt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">80</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span class="hs-special">)</span><span>
</span><span id="line-601"></span><span class="hs-pragma">{-# LINE 601 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-601"></span><span>
</span><span id="line-602"></span><span class="annot"><a href="GHC.RTS.Flags.html#getTraceFlags"><span class="hs-identifier hs-type">getTraceFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#IO"><span class="hs-identifier hs-type">IO</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#TraceFlags"><span class="hs-identifier hs-type">TraceFlags</span></a></span><span>
</span><span id="line-603"></span><span id="getTraceFlags"><span class="annot"><span class="annottext">getTraceFlags :: IO TraceFlags
</span><a href="GHC.RTS.Flags.html#getTraceFlags"><span class="hs-identifier hs-var hs-var">getTraceFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-604"></span><span>  </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679540253"><span class="annot"><span class="annottext">ptr :: Ptr b
</span><a href="#local-6989586621679540253"><span class="hs-identifier hs-var hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679540252"><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540252"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540252"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags -&gt; Int -&gt; Ptr b
forall a b. Ptr a -&gt; Int -&gt; Ptr b
</span><a href="GHC.Ptr.html#plusPtr"><span class="hs-operator hs-var">`plusPtr`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">360</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="GHC.RTS.Flags.html#rtsFlagsPtr"><span class="hs-identifier hs-var">rtsFlagsPtr</span></a></span><span>
</span><span id="line-605"></span><span class="hs-pragma">{-# LINE 605 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-605"></span><span>  </span><span class="hs-identifier">TraceFlags</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toEnum</span><span> </span><span class="hs-operator">.</span><span> </span><span class="hs-identifier">fromIntegral</span><span>
</span><span id="line-606"></span><span>                   </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">0</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CInt</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-607"></span><span class="hs-pragma">{-# LINE 607 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-607"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-608"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">4</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-609"></span><span class="hs-pragma">{-# LINE 609 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-609"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-610"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">5</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-611"></span><span class="hs-pragma">{-# LINE 611 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-611"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-612"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">6</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-613"></span><span class="hs-pragma">{-# LINE 613 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-613"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-614"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">7</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-615"></span><span class="hs-pragma">{-# LINE 615 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-615"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-616"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">8</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-617"></span><span class="hs-pragma">{-# LINE 617 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-617"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-618"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">9</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-619"></span><span class="hs-pragma">{-# LINE 619 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-619"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-620"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">10</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-621"></span><span class="hs-pragma">{-# LINE 621 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-621"></span><span>
</span><span id="line-622"></span><span class="annot"><a href="GHC.RTS.Flags.html#getTickyFlags"><span class="hs-identifier hs-type">getTickyFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#IO"><span class="hs-identifier hs-type">IO</span></a></span><span> </span><span class="annot"><a href="GHC.RTS.Flags.html#TickyFlags"><span class="hs-identifier hs-type">TickyFlags</span></a></span><span>
</span><span id="line-623"></span><span id="getTickyFlags"><span class="annot"><span class="annottext">getTickyFlags :: IO TickyFlags
</span><a href="GHC.RTS.Flags.html#getTickyFlags"><span class="hs-identifier hs-var hs-var">getTickyFlags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-624"></span><span>  </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679540243"><span class="annot"><span class="annottext">ptr :: Ptr b
</span><a href="#local-6989586621679540243"><span class="hs-identifier hs-var hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679540242"><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540242"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="#local-6989586621679540242"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags -&gt; Int -&gt; Ptr b
forall a b. Ptr a -&gt; Int -&gt; Ptr b
</span><a href="GHC.Ptr.html#plusPtr"><span class="hs-operator hs-var">`plusPtr`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">384</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr RTSFlags
</span><a href="GHC.RTS.Flags.html#rtsFlagsPtr"><span class="hs-identifier hs-var">rtsFlagsPtr</span></a></span><span>
</span><span id="line-625"></span><span class="hs-pragma">{-# LINE 625 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-625"></span><span>  </span><span class="hs-identifier">TickyFlags</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">toBool</span><span> </span><span class="hs-operator">&lt;$&gt;</span><span>
</span><span id="line-626"></span><span>                   </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">0</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">CBool</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-627"></span><span class="hs-pragma">{-# LINE 627 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-627"></span><span>             </span><span class="hs-operator">&lt;*&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">peekFilePath</span><span> </span><span class="hs-operator">=&lt;&lt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">8</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">ptr</span><span class="hs-special">)</span><span>
</span><span id="line-628"></span><span class="hs-pragma">{-# LINE 628 &quot;libraries\\base\\GHC\\RTS\\Flags.hsc&quot; #-}</span><span>
</span><span id="line-628"></span></pre></body></html>